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-macs.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:48 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-macs.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-macs.el' was compiled for Emacs 19.29 or later"))

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

#@58 Return the value of symbol VAR if it is bound, else nil.
(defalias 'org-bound-and-true-p '(macro . #[(var) "\301\302\303DDE\207" [var and boundp quote] 4 (#$ . 611)]))
#@52 Execute body without changing `buffer-modified-p'.
(defalias 'org-unmodified '(macro . #[(&rest body) "\301\302\303BBD\207" [body set-buffer-modified-p prog1 (buffer-modified-p)] 4 (#$ . 787)]))
#@46 Replace posix classes in regular expression.
(defalias 'org-re '(macro . #[(s) "\207" [s] 1 (#$ . 989)]))
(defalias 'org-preserve-lc '(macro . #[(&rest body) "\301\302\303\304B\305BBE\207" [body let ((_line (org-current-line)) (_col (current-column))) unwind-protect progn ((goto-line _line) (org-move-to-column _col))] 5]))
(defalias 'org-without-partial-completion '(macro . #[(&rest body) "\301\302\303\304\305BB\306BBE\207" [body let ((pc-mode (and (boundp 'partial-completion-mode) partial-completion-mode))) unwind-protect progn (if pc-mode (partial-completion-mode -1)) ((if pc-mode (partial-completion-mode 1)))] 6]))
(byte-code "\300\301!\204\n�\301\302M\210\300\207" [fboundp declare-function (macro . #[(fn file &optional arglist fileonly) "\300\207" [nil] 1])] 2)
#@480 Add '(intangible t) to PROPS if Emacs version is earlier than Emacs 22.
In emacs 21, invisible text is not avoided by the command loop, so the
intangible property is needed to make sure point skips this text.
In Emacs 22, this is not necessary.  The intangible text property has
led to problems with flyspell.  These problems are fixed in flyspell.el,
but we still avoid setting the property in Emacs 22 and later.
We use a macro so that the test can happen at compilation time.
(defalias 'org-maybe-intangible '(macro . #[(props) "\302W\203�\303\304	E\207	\207" [emacs-major-version props 22 append '(intangible t)] 3 (#$ . 1775)]))
#@75 Move to buffer and point of point-or-marker POM for the duration of BODY.
(defalias 'org-with-point-at '(macro . #[(pom &rest body) "\302\303\304D\305\306DDE\302\307\310\311BBD	BBE\207" [pom body save-excursion if markerp set-buffer marker-buffer goto-char or ((point))] 7 (#$ . 2417)]))
(defalias 'org-no-warnings '(macro . #[(&rest body) "\301\302!\203\n�\302\202�\303B\207" [body fboundp with-no-warnings progn] 2]))
#@69 Execute BODY if there is no `org-protected' text property at point.
(defalias 'org-if-unprotected '(macro . #[(&rest body) "\301\302BB\207" [body unless (get-text-property (point) 'org-protected)] 3 (#$ . 2848)]))
#@71 Execute BODY if there is no `org-protected' text property at point-1.
(defalias 'org-if-unprotected-1 '(macro . #[(&rest body) "\301\302BB\207" [body unless (get-text-property (1- (point)) 'org-protected)] 3 (#$ . 3069)]))
#@63 Execute BODY while recording undo information in two buffers.
(defalias 'org-with-remote-undo '(macro . #[(_buffer &rest _body) "\302\303\304\305\306D\307\310\311\312BBD\313BBBBBB\314	\315\"BB\207" [_buffer _body let (_cline (org-current-line)) (_cmd this-command) (_buf1 (current-buffer)) _buf2 (_undo1 buffer-undo-list) _undo2 with-current-buffer (buffer-undo-list) (_c1 _c2) append ((when org-agenda-allow-remote-undo (setq _c1 (org-verify-change-for-undo _undo1 (with-current-buffer _buf1 buffer-undo-list)) _c2 (org-verify-change-for-undo _undo2 (with-current-buffer _buf2 buffer-undo-list))) (when (or _c1 _c2) (and _c1 (with-current-buffer _buf1 (undo-boundary))) (and _c2 (with-current-buffer _buf2 (undo-boundary))) (push (list _cmd _cline _buf1 _c1 _buf2 _c2) org-agenda-undo-list))))] 10 (#$ . 3299)]))
#@29 Inhibit read-only for BODY.
(defalias 'org-no-read-only '(macro . #[(&rest body) "\301\302BB\207" [body let ((inhibit-read-only t))] 3 (#$ . 4121)]))
#@66 Properties to remove when a string without properties is wanted.
(defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t rear-nonsticky t mouse-map t fontified t) (#$ . 4278))
(defalias 'org-match-string-no-properties #[(num &optional string) "\302	\"\207" [num string match-string-no-properties] 3])
(put 'org-match-string-no-properties 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-no-properties #[(s) "\302\303!\203�\303\304G\305$\210\202�\306\304G	$\210\207" [s org-rm-props fboundp set-text-properties 0 nil remove-text-properties] 5])
(put 'org-no-properties 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-get-alist-option #[(option key) "\302=\203�\302\207	\302=\203�\302\207\303	\"\203�\303	\"A\207\304	\236A\207" [key option t assoc default] 3])
(put 'org-get-alist-option 'byte-optimizer 'byte-compile-inline-expand)
#@191 Modified `buffer-invisibility-spec' for Emacs 21.
Some ops with invisible text do not work correctly on Emacs 21.  For these
we turn off invisibility temporarily.  Use this in a `let' form.
(defalias 'org-inhibit-invisibility #[nil "\302W?\205�	\207" [emacs-major-version buffer-invisibility-spec 22] 2 (#$ . 5176)])
(put 'org-inhibit-invisibility 'byte-optimizer 'byte-compile-inline-expand)
#@55 Make VAR local in current buffer and set it to VALUE.
(defalias 'org-set-local #[(var value) "\302!	L\207" [var value make-variable-buffer-local] 2 (#$ . 5577)])
(put 'org-set-local 'byte-optimizer 'byte-compile-inline-expand)
#@45 Check if the current buffer is in Org-mode.
(defalias 'org-mode-p #[nil "\301=\207" [major-mode org-mode] 2 (#$ . 5811)])
(put 'org-mode-p 'byte-optimizer 'byte-compile-inline-expand)
#@34 Return the last element of LIST.
(defalias 'org-last #[(list) "\301!@\207" [list last] 2 (#$ . 6002)])
(put 'org-last 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-let #[(list &rest body) "\302\303	BB!\207" [list body eval let] 4])
(put 'org-let 'lisp-indent-function 1)
(defalias 'org-let2 #[(list1 list2 &rest body) "\303\304\304	\nBBCBB!\207" [list1 list2 body eval let] 6])
(put 'org-let2 'lisp-indent-function 2)
#@61 Call COMMAND interactively, but pretend prefix arg was ARG.
(defalias 'org-call-with-arg #[(command arg) "\303\n!)\207" [arg current-prefix-arg command call-interactively] 2 (#$ . 6443)])
(put 'org-call-with-arg 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-current-line #[(&optional pos) "\212\203�b\210n\203�\301\202�\302\303\301`\"\\)\207" [pos 1 0 count-lines] 4])
(put 'org-current-line 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-current-line-string #[(&optional to-here) "\301 \203\n�`\202\f�\302 {\207" [to-here point-at-bol point-at-eol] 2])
(put 'org-current-line-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-pos-in-match-range #[(pos n) "\224\205�\224	X\205�\225	Y\207" [n pos] 2])
(put 'org-pos-in-match-range 'byte-optimizer 'byte-compile-inline-expand)
#@69 Establish autoload for all FUNCTIONS in FILE, if not bound already.
(defalias 'org-autoload #[(file functions) "\304\305\"\306\211A@\211\205!�\307	!\204�\310	\n\311$\210\202�*\207" [file f d functions format "Documentation will be available after `%s.el' is loaded." nil fboundp autoload t] 5 (#$ . 7281)])
#@50 Looking-at at the beginning of the current line.
(defalias 'org-match-line #[(re) "\212\301 b\210\302!)\207" [re point-at-bol looking-at] 2 (#$ . 7603)])
#@76 Delete PROPERTY from PLIST.
This is in contrast to merely setting it to 0.
(defalias 'org-plist-delete #[(plist property) "\304	\203!�\n	@=\204�\305	@	A@#	\211AA)\211\204�)\207" [p plist property x nil plist-put] 5 (#$ . 7764)])
(provide 'org-macs)

${this.title}

Code Editor : org-macs.elc