Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-mouse.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:49 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-mouse.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-mouse.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'org)
#@47 Regular expression that matches a plain list.
(defvar org-mouse-plain-list-regexp "\$[ 	]*\$\$[-+*]\\|[0-9]+[.)]\$ " (#$ . 628))
#@268 Internal variable indicating whether the current action is direct.

If t, then the current action has been invoked directly through the buffer
it is intended to operate on.  If nil, then the action has been invoked
indirectly, for example, through the agenda buffer.
(defvar org-mouse-direct t (#$ . 768))
(custom-declare-group 'org-mouse nil "Mouse support for org-mode." :tag "Org Mouse" :group 'org)
#@56 Punctuation used when inserting text by drag and drop.
(custom-declare-variable 'org-mouse-punctuation '":" '(#$ . 1177) :group 'org-mouse :type 'string)
#@122 The features of org-mouse that should be activated.
Changing this variable requires a restart of Emacs to get activated.
(custom-declare-variable 'org-mouse-features ''(context-menu yank-link activate-stars activate-bullets activate-checkboxes) '(#$ . 1338) :group 'org-mouse :type '(set :greedy t (const :tag "Mouse-3 shows context menu" context-menu) (const :tag "C-mouse-1 and mouse-3 move trees" move-tree) (const :tag "S-mouse-2 and drag-mouse-3 yank link" yank-link) (const :tag "Activate headline stars" activate-stars) (const :tag "Activate item bullets" activate-bullets) (const :tag "Activate checkboxes" activate-checkboxes)))
#@57 Search the current line for a given regular expression.
(defalias 'org-mouse-re-search-line #[(regexp) "\301 \210\302\303 \304#\207" [regexp beginning-of-line re-search-forward point-at-eol t] 4 (#$ . 1982)])
#@52 Go to the end of current headline (ignoring tags).
(defalias 'org-mouse-end-headline #[nil "\300\210\301\300x\210\302\303!\205�\304\300x\210\301\300x\207" [nil "	 " looking-back ":[A-Za-z]+:" ":A-Za-z"] 2 (#$ . 2198) nil])
#@138 Function to create the context menu.
The value of this variable is the function invoked by
`org-mouse-context-menu' as the context menu.
(defvar org-mouse-context-menu-function nil (#$ . 2430))
(make-variable-buffer-local 'org-mouse-context-menu-function)
#@171 Invoke the context menu.

If the value of `org-mouse-context-menu-function' is a function, then
this function is called.  Otherwise, the current major mode menu is used.
(defalias 'org-mouse-show-context-menu #[(event prefix) "\211:\203�\3068\250\203�\3068\202�\307)\307U\203\245�	\203'�\310\n\311\245!\203\245�\312\211:\2035�A@\202;�\313 `\314\315F)\211@)!\210\316 \204\207�\211:\203T�A@\202Z�\313 `\314\315F)\3178\206s�A@:\203p�A@@\202s�A@)b\210l\204\200�\212\320\321!\210)\322\310\315!\210)\323
!\203\221�
!\207\324\325!\203\237�\326\325 #\207\327\"\207\330\211!\207" [event mark-active double-click-time position redisplay-dont-pause org-mouse-context-menu-function 2 1 sit-for 1000.0 select-window selected-window (0 . 0) 0 org-mouse-mark-active 5 run-hooks post-command-hook t functionp fboundp mouse-menu-major-mode-map popup-menu mouse-major-mode-menu mouse-save-then-kill prefix this-command] 6 (#$ . 2693) "@e \nP"])
#@291 Returns `:beginning' or `:middle' or `:end', depending on the point position.

If the point is at the end of the line, return `:end'.
If the point is separated from the beginning of the line only by white
space and *'s (`org-mouse-bolp'), return `:beginning'.  Otherwise,
return `:middle'.
(defalias 'org-mouse-line-position #[nil "l\203�\300\207\301 \203
�\302\207\303\207" [:end org-mouse-bolp :beginning :middle] 1 (#$ . 3657)])
#@56 Return non-nil iff the line contains only white space.
(defalias 'org-mouse-empty-line #[nil "\212\300 \210\301\302!)\207" [beginning-of-line looking-at "[ 	]*$"] 2 (#$ . 4096)])
#@103 Go to the next heading.
If there is none, ensure that the point is at the beginning of an empty line.
(defalias 'org-mouse-next-heading #[nil "\300 ?\205�\301 \210\302 ?\205�\303\210\304 \207" [outline-next-heading beginning-of-line org-mouse-empty-line nil newline] 1 (#$ . 4282)])
#@221 Insert a new heading, as `org-insert-heading'.

If the point is at the :beginning (`org-mouse-line-position') of the line,
insert the new heading before the current line.  Otherwise, insert it
after the current heading.
(defalias 'org-mouse-insert-heading #[nil "\301 \211\302=\203�\303 \210\304 \202�\305 \210\304 )\207" [#1=#:--cl-var-- org-mouse-line-position :beginning beginning-of-line org-insert-heading org-mouse-next-heading] 3 (#$ . 4575) nil])
#@109 Change the timestamp into SHIFT UNITS in the future.

For the acceptable UNITS, see `org-timestamp-change'.
(defalias 'org-mouse-timestamp-today #[(&optional shift units) "\304\305!\211\205\n�\305K\306\216\305\307M\210\310\311!\210+\n\205�\312\n\"\207" [#1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- shift units fboundp org-read-date ((byte-code "\203�\302	M\210\202�\303\302!\210\302\207" [#1# #2# org-read-date fmakunbound] 2)) #[(&rest rest) "\300 \207" [current-time] 1 "Not documented\n\n(fn &rest REST)"] org-time-stamp nil org-timestamp-change] 4 (#$ . 5040) nil])
#@830 A helper function.

Returns a menu fragment consisting of KEYWORDS.  When a keyword
is selected by the user, FUNCTION is called with the selected
keyword as the only argument.

If SELECTED is nil, then all items are normal menu items.  If
SELECTED is a function, then each item is a checkbox, which is
enabled for a given keyword iff (funcall SELECTED keyword) return
non-nil.  If SELECTED is neither nil nor a function, then the
items are radio buttons.  A radio button is enabled for the
keyword `equal' to SELECTED.

ITEMFORMAT governs formatting of the elements of KEYWORDS.  If it
is a function, it is invoked with the keyword as the only
argument.  If it is a string, it is interpreted as the format
string to (format ITEMFORMAT keyword).  If it is neither a string
nor a function, elements of KEYWORDS are used directly. 
(defalias 'org-mouse-keyword-menu #[(keywords function &optional selected itemformat) "\304\305\306\307\310\311D\312\313BBD\314D\315\316BBD\317BBB\320\321	\322BBB\323\310\324\nD\325B\311\nD\326B\327BBB\330\331\311\nD\332\312\n\333BB\334BB\335\n\336BBF\257E\"\207" [itemformat function selected keywords mapcar lambda (keyword) vector cond functionp funcall (keyword) stringp format (keyword) ((t keyword)) list 'funcall (keyword) :style null (t) ('toggle) ((t 'radio)) :selected if and (keyword) (t) equal (keyword)] 15 (#$ . 5625)])
#@57 Remove the match, make just one space around the point.
(defalias 'org-mouse-remove-match-and-spaces #[nil "\300\301!\210\302 \207" [replace-match "" just-one-space] 2 (#$ . 7000) nil])
#@73 The same as `replace-match', but surrounds the replacement with spaces.
(defalias 'org-mouse-replace-match-and-surround #[(newtext &optional fixedcase literal string subexp) "\302\303\"\210\212	\206�\304\224b\210\305 \210	\206�\304\225b\210\305 )\207" [rest subexp apply replace-match 0 just-one-space] 3 (#$ . 7192)])
#@702 A helper function.

Returns a menu fragment consisting of KEYWORDS.  When a keyword
is selected, group GROUP of the current match is replaced by the
keyword.  The method ensures that both ends of the replacement
are separated from the rest of the text in the buffer by
individual spaces (unless NOSURROUND is non-nil).

The final entry of the menu is always "None", which removes the
match.

(defalias 'org-mouse-keyword-replace-menu #[(keywords &optional group itemformat nosurround) "\206�\305\306	\203�\307\202�\310!\311\312\313\314\315\n\316\317\211\320\257E\321!\f$\322\323\324\325\326\327\321!\235?&C\")\207" [group nosurround replace keywords itemformat 0 org-mouse-match-closure replace-match org-mouse-replace-match-and-surround append org-mouse-keyword-menu lambda (keyword) funcall keyword t nil match-string vector "None" org-mouse-remove-match-and-spaces :style radio :selected] 12 (#$ . 7521)])
#@73 Change the visibility of the current org buffer to only show headlines.
(defalias 'org-mouse-show-headlines #[nil "\303\211\304\303\305!\210\303\306!+\207" [org-cycle-global-status last-command this-command org-cycle nil (4) (4)] 3 (#$ . 8758) nil])
#@72 Change visibility of current org buffer to first-level headlines only.
(defalias 'org-mouse-show-overview #[nil "\301\302\303!)\207" [org-cycle-global-status nil org-cycle (4)] 2 (#$ . 9017) nil])
#@55 Set the priority of the current headline to PRIORITY.
(defalias 'org-mouse-set-priority #[(priority) "\302\303!\211\205\n�\303K\304\216\303\305M\210\306 +\207" [#1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- fboundp read-char-exclusive ((byte-code "\203�\302	M\210\202�\303\302!\210\302\207" [#1# #2# read-char-exclusive fmakunbound] 2)) #[nil "\207" [priority] 1] org-priority] 3 (#$ . 9221)])
#@134 Regular expression matching the priority indicator.
Differs from `org-priority-regexp' in that it doesn't contain the
leading '.*?'.
(defvar org-mouse-priority-regexp "\\[#\$[A-Z]\$\\]" (#$ . 9627))
#@107 Return the priority of the current headline.
DEFAULT is returned if no priority is given in the headline.
(defalias 'org-mouse-get-priority #[(&optional default) "\212\303!\203
�\304\305!\202�	\205�\306\n!)\207" [org-mouse-priority-regexp default org-default-priority org-mouse-re-search-line match-string 1 char-to-string] 2 (#$ . 9835)])
#@110 Deletes the current timestamp as well as the preceding keyword.
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:
(defalias 'org-mouse-delete-timestamp #[nil "\300 \204\n�\301 \205�\302\303!\210\304\305x\210\306\307!\205�\302\303!\207" [org-at-date-range-p org-at-timestamp-p replace-match "" " :A-Z" nil looking-at " *[A-Z][A-Z]+:"] 2 (#$ . 10185)])
(defalias 'org-mouse-looking-at #[(regexp skipchars &optional movechars) "\212`\304	!\203
�\305\202\"�\n\306x\210\206�\307u\210\304	!\205\"�\307\225V*\207" [point regexp skipchars movechars looking-at t nil 0] 2])
(defalias 'org-mouse-priority-list #[nil "\304	\305\nX\203�\306!BT\211\202�\237+\207" [priority org-lowest-priority #1=#:--cl-var-- #2=#:--cl-var-- 65 nil char-to-string] 3])
(defalias 'org-mouse-tag-menu #[nil "\301\302 \303\304\305\306\307 \"\310\"\311\312\313\304\314\315\316\317DE\320\316\317DE\321\316\317DEF\322BBDE\311\323\315\316\317DEE#)\324\"\207" [tags append org-get-tags org-mouse-keyword-menu sort mapcar car org-get-buffer-tags string-lessp lambda (tag) org-mouse-set-tags if member tag quote delete cons ('string-lessp) (tag) ("--" ["Align Tags Here" (org-set-tags nil t) t] ["Align Tags in Buffer" (org-set-tags t t) t] ["Set Tags ..." (org-set-tags) t])] 14])
(defalias 'org-mouse-set-tags #[(tags) "\212\301 \210\302\303!\203�\304\305!\210\205#�\306\210\307\310\311\312#\312\261\210\313\306\314\")\207" [tags beginning-of-line org-mouse-re-search-line ":\$\\([A-Za-z_]+:\$+\\)" replace-match "" nil " :" mapconcat identity ":" org-set-tags t] 5])
(defalias 'org-mouse-insert-checkbox #[nil "\300 \205�\301\225b\205�\302 ?\205�\303 \210\304c\207" [org-at-item-p 0 org-at-item-checkbox-p delete-horizontal-space " [ ] "] 1 nil nil])
(defalias 'org-mouse-agenda-type #[(type) "\301\302\"\203	�\303\207\301\304\"\203�\305\207\301\306\"\203�\307\207\301\310\"\203$�\311\207\301\312\"\203-�\313\207\314\207" [type memql 'tags "Tags: " 'todo "TODO: " 'tags-tree "Tags tree: " 'todo-tree "TODO tree: " 'occur-tree "Occur tree: " "Agenda command ???"] 3])
(defalias 'org-mouse-list-options-menu #[(alloptions &optional function) "\306 \307\216\310\311\312!!*\313	!\210\n\314\211:\203n�@\315\f\316\317\320\321\322\323\324\325\fD\325	DE\326\325\fD\325	DE\327\325\fD\325	DEF\330BB\331BBB\332BB\333\334\325\"DD\335\325\"DDEE\336\337\340\f	\235\205b�\341&
BA\211\202�
\237,\207" [save-match-data-internal options alloptions #1=#:--cl-var-- name #2=#:--cl-var-- match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) split-string match-string-no-properties 1 print nil vector progn replace-match mapconcat 'identity sort if member quote delete cons ('string-lessp) (" ") (nil nil nil 1) when functionp funcall :style toggle :selected t function] 15])
(defalias 'org-mouse-clip-text #[(text maxlength) "G	V\203�\302	\303ZO\304P\207\207" [text maxlength 0 3 "..."] 4])
(defalias 'org-mouse-popup-global-menu #[nil "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320 \"\321\"\322\"\323\"B\324\307\325\326\327\330\313\314\315\316\317\320 \"\321\"\331\"\332\"B\333\307\313\314\316\317\"\334\335\336$\337\"BBBBBBBBBBBBBBBBB!\207" [org-agenda-custom-commands popup-menu "Main Menu" ["Show Overview" org-mouse-show-overview t] ["Show Headlines" org-mouse-show-headlines t] ["Show All" show-all t] ["Remove Highlights" org-remove-occur-highlights :visible org-occur-highlights] "--" ["Check Deadlines" (if (functionp 'org-check-deadlines-and-todos) (org-check-deadlines-and-todos org-deadline-warning-days) (org-check-deadlines org-deadline-warning-days)) t] ["Check TODOs" org-show-todo-tree t] "Check Tags" append org-mouse-keyword-menu sort mapcar car org-get-buffer-tags string-lessp (lambda (tag) (org-tags-sparse-tree nil tag)) ("--" ["Custom Tag ..." org-tags-sparse-tree t]) ["Check Phrase ..." org-occur] ["Display Agenda" org-agenda-list t] ["Display Timeline" org-timeline t] ["Display TODO List" org-todo-list t] "Display Tags" (lambda (tag) (org-tags-view nil tag)) ("--" ["Custom Tag ..." org-tags-view t]) ["Display Calendar" org-goto-calendar t] (lambda (key) (eval `(flet ((read-char-exclusive nil (string-to-char ,key))) (org-agenda nil)))) nil (lambda (key) (let ((entry (assoc key org-agenda-custom-commands))) (org-mouse-clip-text (cond ((stringp (nth 1 entry)) (nth 1 entry)) ((stringp (nth 2 entry)) (concat (org-mouse-agenda-type (nth 1 entry)) (nth 2 entry))) (t "Agenda Command '%s'")) 30))) ("--" ["Delete Blank Lines" delete-blank-lines :visible (org-mouse-empty-line)] ["Insert Checkbox" org-mouse-insert-checkbox :visible (and (org-at-item-p) (not (org-at-item-checkbox-p)))] ["Insert Checkboxes" (org-mouse-for-each-item 'org-mouse-insert-checkbox) :visible (and (org-at-item-p) (not (org-at-item-checkbox-p)))] ["Plain List to Outline" org-mouse-transform-to-outline :visible (org-at-item-p)])] 24])
(defalias 'org-mouse-get-context #[(contextlist context) "	\236\211\205�\212\n\211A@)b\210\304\305\n\211AA)@\"))\207" [context contextlist contextdata x re-search-forward ".*"] 4])
(defalias 'org-mouse-for-each-item #[(function) "\212\300\301\302\217\210\300\303\304\217)\207" [nil (byte-code "\300 \210\202��" [org-previous-item] 1) ((error)) (byte-code " \210\301 \210\202��" [function org-next-item] 1) ((error))] 3])
#@96 Returns true if there only spaces, tabs, and '*',  between the beginning of line and the point
(defalias 'org-mouse-bolp #[nil "\212\300\301x\210n)\207" [" 	*" nil] 2 (#$ . 15521)])
(defalias 'org-mouse-insert-item #[(text) "\303 \211\304=\203\"�\305 \210\306\307!\210\310\311!\210\312\313\225\313\224Z!\210\314c\210\202S�\315=\2038�\316\210\317\320!\210\321 \210\314c\210\202S�\322=\203S�\323\316x\210\324`\325 \"\210\326	!\204S�	\327Pc\210)\nc\210\305 \207" [#1=#:--cl-var-- org-mouse-punctuation text org-mouse-line-position :beginning beginning-of-line looking-at "[ 	]*" open-line 1 org-indent-to-column 0 "+ " :middle nil newline t indent-relative :end " 	" kill-region point-at-eol looking-back " "] 4])
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice dnd-insert-text (org-mouse-dnd-insert-text nil t (advice lambda nil (if (eq major-mode 'org-mode) (org-mouse-insert-item text) ad-do-it))) around nil ad-activate dnd-open-file (org-mouse-dnd-open-file nil t (advice lambda nil (if (eq major-mode 'org-mode) (org-mouse-insert-item uri) ad-do-it)))] 5)
(defalias 'org-mouse-match-closure #[(function) "\302\303!\304\305\306\307\310DD\311\310	D\312BBEE)\207" [match function match-data t lambda (&rest rest) save-match-data set-match-data quote apply (rest)] 7])
(defalias 'org-mouse-todo-keywords #[nil "\302\300!\203�\207	\207" [org-todo-keywords-1 org-todo-keywords boundp] 2])
(defalias 'org-mouse-match-todo-keyword #[nil "\212\302 \210\303!\203�\304\225b\210\303\305	\306Q!\206�\303\307!)\207" [outline-regexp org-todo-regexp org-back-to-heading looking-at 0 " +" " *" " \$ *\$"] 4])
(defalias 'org-mouse-yank-link #[(click) "\302\303!\210\304!\210\305\306 \210\307\310\311\305!\312Q!\207" [click mouse-selection-click-count run-hooks mouse-leave-buffer-hook mouse-set-point 0 delete-horizontal-space insert-for-yank " [[" current-kill "]] "] 4 nil "e"])
(defalias 'org-mouse-context-menu #[(&optional event) "	D\306 \307\310!\211\205�\310K\311\216\310\312M\210\313 \203b�\314 \315 {@\316\317\320\321\322\323@DD\"\320\324\325\323@DD\"\320\326\327\330\331\323@DED\"\320\332\327\330\333\323@DED\"\334\335\320\336\337\323ADD\"\257!)\202
\212\340 \210\341\342!)\203|�\316\317\343\344\345B\"\346\"B!\202
l\204\214�\341\347!\203\221�\350\351!\203\221�\352 \202
\310\353!\203\235�\316\354!\202
\355\356\357\"\203\311�\360\361!\362 \235\203\311�\316\317\363\364\362 !\334\365\366\367\320\330\370\360\361!\"\371B\"F\"B!\202
\355\372\373\"\203\345�\360\361!\235\203\345�\316\317\363\364!\374\"B!\202
\355C\375\"\203\377�\316\317\364\376 \377\201G�\201H�$B!\202
\310\201I�!\203\316\201J�!\202
\355\201K�\201L�\201M�#\203P\316\317\320\330\201N�\360\377!\"\201O�\317\360\377!E\"\320\330\201P�\360\377!\"\201Q�\317\360\377!E\"\334\201R� BBBB!\202
\201S� \203_\316\201T�!\202
\310\201U�!\203\234\201V� \211D\211@\201W�\\\240\210\201X�D!\210)\201Y�\201Z�\360\361!\"\210\316\317\364\201[�\361\201\\�\201H�$B!\202
\201]�\n\236\203\254\316\201^�!\202
\201_�\n\236\203l\204\201`�\201H�!E\316\201a�\201b�\363\201c�\376 \201d�E\201G�$\201e�\201R� #B\201f�\201g� \210\364\362 \377\"B\201h�\201i�\363F\205\375\201j�\201k�\"BBBBB!)\202
\352 -\207" [org-deadline-string org-scheduled-string contextlist stamp-prefixes #1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- org-context fboundp get-context ((byte-code "\203�\302	M\210\202�\303\302!\210\302\207" [#1# #2# get-context fmakunbound] 2)) #[(context) "\302	\"\207" [contextlist context org-mouse-get-context] 3] org-mouse-mark-active region-beginning region-end popup-menu nil vector "Sparse Tree" org-occur quote "Find in Buffer" occur "Grep in Current Dir" grep format "grep -rnH -e '%s' *" "Grep in Parent Dir" "grep -rnH -e '%s' ../*" "--" ["Convert to Link" (progn (save-excursion (goto-char (region-beginning)) (insert "[[")) (save-excursion (goto-char (region-end)) (insert "]]")))] "Insert Link Here" org-mouse-yank-link beginning-of-line looking-at "#\\+STARTUP: \$.*\$" org-mouse-list-options-menu mapcar car org-mode-restart "\$  \\|	\$\$+:[0-9a-zA-Z_:]+\$?\$  \\|	\$+$" looking-back "  \\|	" org-mouse-popup-global-menu :checkbox (nil ["Toggle" org-toggle-checkbox t] ["Remove" org-mouse-remove-match-and-spaces t] "" ["All Clear" (org-mouse-for-each-item (lambda nil (when (save-excursion (org-at-item-checkbox-p)) (replace-match "[ ]"))))] ["All Set" (org-mouse-for-each-item (lambda nil (when (save-excursion (org-at-item-checkbox-p)) (replace-match "[X]"))))] ["All Toggle" (org-mouse-for-each-item 'org-toggle-checkbox) t] ["All Remove" (org-mouse-for-each-item (lambda nil (when (save-excursion (org-at-item-checkbox-p)) (org-mouse-remove-match-and-spaces))))]) org-mouse-looking-at "\\b\\w+" "a-zA-Z0-9_" match-string 0 org-mouse-todo-keywords append org-mouse-keyword-replace-menu ["Check TODOs" org-show-todo-tree t] ["List all TODO keywords" org-todo-list t] apply "List only %s" ((org-todo-list (match-string 0)) t) "\\b[A-Z]+:" "A-Z" ("--" ["Check Deadlines" org-check-deadlines t]) "[]A-Z#" org-mouse-priority-list 1 region-string event org-startup-options org-mouse-priority-regexp mdata priority org-mouse-direct "Priority %s" t :link (nil ["Open" org-open-at-point t] ["Open in Emacs" (org-open-at-point t) t] "--" ["Copy link" (kill-new (match-string 0))] ["Cut link" (progn (kill-region (match-beginning 0) (match-end 0)) (just-one-space))] "--" ["Grep for TODOs" (grep (format "grep -nH -i 'todo\\|fixme' %s*" (match-string 2)))]) ":\$[A-Za-z0-9_]+\$:" "A-Za-z0-9_" -1 "Display '%s'" org-tags-view "Sparse Tree '%s'" org-tags-sparse-tree org-mouse-tag-menu org-at-timestamp-p (nil ["Show Day" org-open-at-point t] ["Change Timestamp" org-time-stamp t] ["Delete Timestamp" (org-mouse-delete-timestamp) t] ["Compute Time Range" org-evaluate-time-range (org-at-date-range-p)] "--" ["Set for Today" org-mouse-timestamp-today] ["Set for Tomorrow" (org-mouse-timestamp-today 1 'day)] ["Set in 1 Week" (org-mouse-timestamp-today 7 'day)] ["Set in 2 Weeks" (org-mouse-timestamp-today 14 'day)] ["Set in a Month" (org-mouse-timestamp-today 1 'month)] "--" ["+ 1 Day" (org-timestamp-change 1 'day)] ["+ 1 Week" (org-timestamp-change 7 'day)] ["+ 1 Month" (org-timestamp-change 1 'month)] "--" ["- 1 Day" (org-timestamp-change -1 'day)] ["- 1 Week" (org-timestamp-change -7 'day)] ["- 1 Month" (org-timestamp-change -1 'month)]) :table-special match-data 2 store-match-data message "match: %S" (" " "!" "^" "_" "$" "#" "*" "'") #[(mark) "\301!\302=\203\n�\303\207\301!\304=\203�\305\207\301!\306=\203�\307\207\301!\310=\203(�\311\207\301!\312=\2032�\313\207\301!\314=\203<�\315\207\301!\316=\203F�\317\207\301!\320=\205O�\321\207" [mark string-to-char 32 "( ) Nothing Special" 33 "(!) Column Names" 94 "(^) Field Names Above" 95 "(^) Field Names Below" 36 "($) Formula Parameters" 35 "(#) Recalculation: Auto" 42 "(*) Recalculation: Manual" 39 "(') Recalculation: None"] 2] :table (nil ["Align Table" org-ctrl-c-ctrl-c] ["Blank Field" org-table-blank-field] ["Edit Field" org-table-edit-field] "--" ("Column" ["Move Column Left" org-metaleft] ["Move Column Right" org-metaright] ["Delete Column" org-shiftmetaleft] ["Insert Column" org-shiftmetaright] "--" ["Enable Narrowing" (setq org-table-limit-column-width (not org-table-limit-column-width)) :selected org-table-limit-column-width :style toggle]) ("Row" ["Move Row Up" org-metaup] ["Move Row Down" org-metadown] ["Delete Row" org-shiftmetaup] ["Insert Row" org-shiftmetadown] ["Sort lines in region" org-table-sort-lines (org-at-table-p)] "--" ["Insert Hline" org-table-insert-hline]) ("Rectangle" ["Copy Rectangle" org-copy-special] ["Cut Rectangle" org-cut-special] ["Paste Rectangle" org-paste-special] ["Fill Rectangle" org-table-wrap-region]) "--" ["Set Column Formula" org-table-eval-formula] ["Set Field Formula" (org-table-eval-formula '(4))] ["Edit Formulas" org-table-edit-formulas] "--" ["Recalculate Line" org-table-recalculate] ["Recalculate All" (org-table-recalculate '(4))] ["Iterate All" (org-table-recalculate '(16))] "--" ["Toggle Recalculate Mark" org-table-rotate-recalc-marks] ["Sum Column/Rectangle" org-table-sum :active (or (org-at-table-p) (org-region-active-p))] ["Field Info" org-table-field-info] ["Debug Formulas" (setq org-table-formula-debug (not org-table-formula-debug)) :style toggle :selected org-table-formula-debug]) :headline org-mouse-get-priority "Headline Menu" "Tags and Priorities" org-mouse-keyword-menu (lambda (keyword) (org-mouse-set-priority (string-to-char keyword))) ("--") "TODO Status" org-mouse-match-todo-keyword ["Show Tags" (with-current-buffer org-mouse-main-buffer (org-agenda-show-tags)) :visible (not org-mouse-direct)] ["Show Priority" (with-current-buffer org-mouse-main-buffer (org-agenda-show-priority)) :visible (not org-mouse-direct)] ("--") (["New Heading" org-mouse-insert-heading :visible org-mouse-direct] ["Set Deadline" (progn (org-mouse-end-headline) (insert " ") (org-deadline)) :active (not (save-excursion (org-mouse-re-search-line org-deadline-regexp)))] ["Schedule Task" (progn (org-mouse-end-headline) (insert " ") (org-schedule)) :active (not (save-excursion (org-mouse-re-search-line org-scheduled-regexp)))] ["Insert Timestamp" (progn (org-mouse-end-headline) (insert " ") (org-time-stamp nil)) t] "--" ["Archive Subtree" org-archive-subtree] ["Cut Subtree" org-cut-special] ["Copy Subtree" org-copy-special] ["Paste Subtree" org-paste-special :visible org-mouse-direct] ("Sort Children" ["Alphabetically" (org-sort-entries nil 97)] ["Numerically" (org-sort-entries nil 110)] ["By Time/Date" (org-sort-entries nil 116)] "--" ["Reverse Alphabetically" (org-sort-entries nil 65)] ["Reverse Numerically" (org-sort-entries nil 78)] ["Reverse By Time/Date" (org-sort-entries nil 84)]) "--" ["Move Trees" org-mouse-move-tree :active nil])] 14])
(defalias 'org-mouse-mark-active #[nil "\205�	\207" [mark-active transient-mark-mode] 1])
(defalias 'org-mouse-in-region-p #[(pos) "\301 \205�\302 Y\205�\303 W\207" [pos org-mouse-mark-active region-beginning region-end] 2])
(defalias 'org-mouse-down-mouse #[(event) "\n\211:\203�\304\n8\250\203�\304\n8\202�\305)\305U\205L�\306\n\211:\203+�\nA@\2021�\307 `\310\311F)\3128\206J�A@:\203G�A@@\202J�A@)!?\205S�\313\n!\207" [last-command this-command event position 2 1 org-mouse-in-region-p selected-window (0 . 0) 0 5 mouse-drag-region] 6 nil "e"])
(add-hook 'org-mode-hook '(lambda nil (setq org-mouse-context-menu-function 'org-mouse-context-menu) (when (memq 'context-menu org-mouse-features) (define-key org-mouse-map (if (featurep 'xemacs) [button3] [mouse-3]) nil) (define-key org-mode-map [mouse-3] 'org-mouse-show-context-menu)) (define-key org-mode-map [down-mouse-1] 'org-mouse-down-mouse) (when (memq 'context-menu org-mouse-features) (define-key org-mouse-map [C-drag-mouse-1] 'org-mouse-move-tree) (define-key org-mouse-map [C-down-mouse-1] 'org-mouse-move-tree-start)) (when (memq 'yank-link org-mouse-features) (define-key org-mode-map [S-mouse-2] 'org-mouse-yank-link) (define-key org-mode-map [drag-mouse-3] 'org-mouse-yank-link)) (when (memq 'move-tree org-mouse-features) (define-key org-mouse-map [drag-mouse-3] 'org-mouse-move-tree) (define-key org-mouse-map [down-mouse-3] 'org-mouse-move-tree-start)) (when (memq 'activate-stars org-mouse-features) (font-lock-add-keywords nil `((,outline-regexp 0 `(face org-link mouse-face highlight keymap ,org-mouse-map) 'prepend)) t)) (when (memq 'activate-bullets org-mouse-features) (font-lock-add-keywords nil `(("^[ 	]*\$[-+*]\\|[0-9]+[.)]\$ +" (1 `(face org-link keymap ,org-mouse-map mouse-face highlight) 'prepend))) t)) (when (memq 'activate-checkboxes org-mouse-features) (font-lock-add-keywords nil `(("^[ 	]*\$[-+*]\\|[0-9]+[.)]\$ +\$\\[[ X]\\]\$" (2 `(face bold keymap ,org-mouse-map mouse-face highlight) t))) t)) (defadvice org-open-at-point (around org-mouse-open-at-point activate) (let ((context (org-context))) (cond ((assq :headline-stars context) (org-cycle)) ((assq :checkbox context) (org-toggle-checkbox)) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t)) (org-cycle))) (t ad-do-it))))))
(defalias 'org-mouse-move-tree-start #[(event) "\300\301!\207" [message "Same line: promote/demote, (***):move before, (text): make a child"] 2 nil "e"])
(defalias 'org-mouse-make-marker #[(position) "r\301\211@)!q\210\302\3038\206$�A@:\203!�A@@\202$�A@)!)\207" [position window-buffer copy-marker 5] 4])
(defalias 'org-mouse-move-tree #[(event) "\212\306\211:\203�A@\202�\307 `\310\311F)!\306\211:\2031�\3128:\203+�\312\202,�\3138\2027�\307 `\314\311F)!\315	!\315\n!\205\347�\f\205\347�q\210	b\210\316 \210\f=\203w�`\212\nb\210\316 \210`)\232\203w�\n	Y\203r�\317 \202\347�\320 \202\347�\321 \210\fq\210\nb\210\316 \210\f=\203\252�`\212	b\210\316 \210`)\232\203\252�\322 \210\323\210m\203\247�\324 \210\202\252�\323u\210\325
!\205\347�\311\225\311\224Z\n\311\225V\203\326�\322 \210\323\210m\203\316�\324 \210\202\321�\323u\210T\326!\210\212\322 \210n\205\346�\327\330!*-\207" [event start end sbuf ebuf outline-regexp org-mouse-make-marker selected-window (0 . 0) 0 2 1 (0 . 0) marker-buffer org-back-to-heading org-demote-subtree org-promote-subtree org-cut-subtree outline-end-of-subtree nil newline looking-at org-paste-subtree delete-char -1 level] 6 nil "e"])
(defalias 'org-mouse-transform-to-outline #[nil "\304 \210\305\306\307!\310P\311\312!\210\212m\204.�\313\n!\204.�\313!\203(�	\314\225\314\224Z^\315y\210\202�)m\2066�\313\n!?\205T�\313!\203N�	\314\225\314\224Z=\203N�\316!\210\315y\210\202/�*\207" [replace-text minlevel outline-regexp org-mouse-plain-list-regexp org-back-to-heading 1000 match-string 0 "* " beginning-of-line 2 looking-at 1 nil replace-match] 3 nil nil])
(defalias 'org-mouse-do-remotely #[(command) "\306`\307\"\2050\310 `Z\306`\307\"\311	!\312	!\306`\313\"\314\315#\314$p%r\nq\210&)\316=\205.\212\nq\210\317 \210\320u\210\321`!)'\314\212\203O�b\210n\203W�\320\202X�\322\323\320`\"\\*(p\n)r\nq\210))\314\211*+,-./01r\nq\210~\210b\210\324 \210\212\325 \203\223�\326\314!\210)\327 \210\321`!\330 \310 Z]b\2102 \210\331\3320\"\210\331\333(\"\210\312	!\312'!=\204\303�\334 #)\335\320!\210\212\336#\f\337#\210)3\203+\340-r/q\210))\"+\340,r.q\210))\"*+\204\374�*\203++\203\nr/q\210\341 \210)*\203r.q\210\341 \210)01/+.*\2574B4.	\342.	\207" [anticol marker buffer pos hdmarker buffer-read-only get-text-property org-marker point-at-eol marker-buffer marker-position org-hd-marker nil "--- removed ---" org-mode outline-end-of-subtree 1 copy-marker 0 count-lines org-show-hidden-entry outline-next-heading org-flag-heading org-back-to-heading point-at-bol message "_cmd: %S" "this-command: %S" org-get-heading beginning-of-line org-agenda-change-all-lines fixface org-verify-change-for-undo undo-boundary t newhead org-mouse-direct org-mouse-main-buffer major-mode endmarker this-command buffer-undo-list _c2 _c1 _undo2 _undo1 _buf2 _buf1 _cmd _cline command org-agenda-allow-remote-undo org-agenda-undo-list] 8])
(defalias 'org-mouse-agenda-context-menu #[(&optional event) "\300\301!\206	�\302\303!\207" [org-mouse-do-remotely org-mouse-context-menu popup-menu ("Agenda" ("Agenda Files") "--" ["Undo" (progn (message "last command: %S" last-command) (setq this-command 'org-agenda-undo) (org-agenda-undo)) :visible (if (eq last-command 'org-agenda-undo) org-agenda-pending-undo-list org-agenda-undo-list)] ["Rebuild Buffer" org-agenda-redo t] ["New Diary Entry" org-agenda-diary-entry (org-agenda-check-type nil 'agenda 'timeline) t] "--" ["Goto Today" org-agenda-goto-today (org-agenda-check-type nil 'agenda 'timeline) t] ["Display Calendar" org-agenda-goto-calendar (org-agenda-check-type nil 'agenda 'timeline) t] ("Calendar Commands" ["Phases of the Moon" org-agenda-phases-of-moon (org-agenda-check-type nil 'agenda 'timeline)] ["Sunrise/Sunset" org-agenda-sunrise-sunset (org-agenda-check-type nil 'agenda 'timeline)] ["Holidays" org-agenda-holidays (org-agenda-check-type nil 'agenda 'timeline)] ["Convert" org-agenda-convert-date (org-agenda-check-type nil 'agenda 'timeline)] "--" ["Create iCalendar file" org-export-icalendar-combine-agenda-files t]) "--" ["Day View" org-agenda-day-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (equal org-agenda-ndays 1)] ["Week View" org-agenda-week-view :active (org-agenda-check-type nil 'agenda) :style radio :selected (equal org-agenda-ndays 7)] "--" ["Show Logbook entries" org-agenda-log-mode :style toggle :selected org-agenda-show-log :active (org-agenda-check-type nil 'agenda 'timeline)] ["Include Diary" org-agenda-toggle-diary :style toggle :selected org-agenda-include-diary :active (org-agenda-check-type nil 'agenda)] ["Use Time Grid" org-agenda-toggle-time-grid :style toggle :selected org-agenda-use-time-grid :active (org-agenda-check-type nil 'agenda)] ["Follow Mode" org-agenda-follow-mode :style toggle :selected org-agenda-follow-mode] "--" ["Quit" org-agenda-quit t] ["Exit and Release Buffers" org-agenda-exit t])] 2])
(defalias 'org-mouse-get-gesture #[(event) "\211:\203
�A@\202�\304 `\305\306F)\307	8)\211:\2031�\3078:\203+�\307\202,�\3108\2027�\304 `\311\306F)\307	8)\211@\n@W\203K�\312\202L�\313*\207" [event position endxy startxy selected-window (0 . 0) 0 2 1 (0 . 0) :right :left] 6])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-agenda-mode-hook (lambda nil (setq org-mouse-context-menu-function 'org-mouse-agenda-context-menu) (define-key org-agenda-keymap (if (featurep 'xemacs) [button3] [mouse-3]) 'org-mouse-show-context-menu) (define-key org-agenda-keymap [down-mouse-3] 'org-mouse-move-tree-start) (define-key org-agenda-keymap [C-mouse-4] 'org-agenda-earlier) (define-key org-agenda-keymap [C-mouse-5] 'org-agenda-later) (define-key org-agenda-keymap [drag-mouse-3] '(lambda (event) (interactive "e") (case (org-mouse-get-gesture event) (:left (org-agenda-earlier 1)) (:right (org-agenda-later 1)))))) provide org-mouse] 3)

${this.title}

Code Editor : org-mouse.elc