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

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

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

(byte-code "\301\302!\210\303B\304\305!\207" [current-load-list require org-macs org-xemacs-p (lambda (#1=#:defconst-tmp-var) (defconst org-xemacs-p #1#)) nil] 2)
#@40 Does format transport text properties?
(defconst org-format-transports-properties-p (byte-code "\301\302\303\304\305$\210\306\303\307\310\311\"#)\207" [x "a" add-text-properties 0 1 (test t) get-text-property test format "%s"] 6) (#$ . 780))
#@456 Make a compatible face specification.
If INHERITS is an existing face and if the Emacs version supports it,
just inherit the face.  If not, use SPECS to define the face.
XEmacs and Emacs 21 do not know about the `min-colors' attribute.
For them we convert a (min-colors 8) entry to a `tty' entry and move it
to the top of the list.  The `min-colors' attribute will be removed from
any other entries, and any resulting duplicates will be removed entirely.
(defalias 'org-compatible-face #[(inherits specs) "\203�\306!\203�	\307V\203�\310\311EC\207	\307W\203\211�\312\211\211
\211A@\211\203\205�@\313>\203:�\fB\202\"�\314@\235\211\203U�\f\315\316\n@@\"BABC\244\210\202\"�\317@\236\211\203v�\316\n@\"AB\320@\f\"\204\"�\fB\202\"�\320@\f\"\204\"�\fB\202\"�\f\237+\207
\207" [inherits emacs-major-version a e r specs facep 22 t :inherit nil (t default) (min-colors 8) (type tty) delq min-colors assoc] 5 (#$ . 1032)])
(put 'org-compatible-face 'lisp-indent-function 1)
(defalias 'org-make-overlay #[(beg end &optional buffer) "\303	\n#\207" [beg end buffer make-overlay] 4])
(defalias 'org-delete-overlay #[(ovl) "\301!\207" [ovl delete-overlay] 2])
(defalias 'org-detach-overlay #[(ovl) "\301!\207" [ovl delete-overlay] 2])
(defalias 'org-move-overlay #[(ovl beg end &optional buffer) "\304	\n$\207" [ovl beg end buffer move-overlay] 5])
(defalias 'org-overlay-put #[(ovl prop value) "\303	\n#\207" [ovl prop value overlay-put] 4])
#@47 Make overlay OVL display TEXT with face FACE.
(defalias 'org-overlay-display #[(ovl text &optional face evap) "\304\305	#\210\n\203�\304\302\n#\210\205�\304\306\307#\207" [ovl text face evap overlay-put display evaporate t] 4 (#$ . 2500)])
#@47 Make overlay OVL display TEXT with face FACE.
(defalias 'org-overlay-before-string #[(ovl text &optional face evap) "\203�\304	\305\300$\210\306\n\307	#\210\205�\306\n\310\311#\207" [face text ovl evap org-add-props nil overlay-put before-string evaporate t] 5 (#$ . 2752)])
(defalias 'org-overlay-get #[(ovl prop) "\302	\"\207" [ovl prop overlay-get] 3])
(defalias 'org-overlays-at #[(pos) "\301!\207" [pos overlays-at] 2])
(defalias 'org-overlays-in #[(&optional start end) "\302	\"\207" [start end overlays-in] 3])
(defalias 'org-overlay-start #[(o) "\301!\207" [o overlay-start] 2])
(defalias 'org-overlay-end #[(o) "\301!\207" [o overlay-end] 2])
(defalias 'org-overlay-buffer #[(o) "\301!\207" [o overlay-buffer] 2])
#@101 Find all overlays specifying PROP at POS or point.
If DELETE is non-nil, delete all those overlays.
(defalias 'org-find-overlays #[(prop &optional pos delete) "\306\206�`!\307\211\211A@\211\203/�\310\n\f\"\203\f�
\203(�\311\n!\210\202\f�\n	B\202\f�	+\207" [pos found ov overlays prop delete org-overlays-at nil org-overlay-get org-delete-overlay] 3 (#$ . 3493)])
#@41 Add-hook, compatible with both Emacsen.
(defalias 'org-add-hook #[(hook function &optional append local) "\210\304	\n$\207" [local hook function append add-hook] 5 (#$ . 3871)])
#@208 Add text properties to entire string, from beginning to end.
PLIST may be a list of properties, PROPS are individual properties and values
that will be added to PLIST.  Returns the string that was modified.
(defalias 'org-add-props #[(string plist &rest props) "\303\304G	\203�\305\n	\"\202�\n$\210\207" [string props plist add-text-properties 0 append] 6 (#$ . 4059)])
(put 'org-add-props 'lisp-indent-function 2)
#@303 Fit WINDOW to the buffer, but only if it is not a side-by-side window.
WINDOW defaults to the selected window.  MAX-HEIGHT and MIN-HEIGHT are
passed through to `fit-window-to-buffer'.  If SHRINK-ONLY is set, call
`shrink-window-if-larger-than-buffer' instead, the hight limit are
ignored in this case.
(defalias 'org-fit-window-to-buffer #[(&optional window max-height min-height shrink-only) "\304\305!\203
�\305!?\202�\306 \307!V\2043�\304\310!\203)�	\204)�\310\n#\210\2023�\304\311!\2033�\311!\210\2069�\312 \207" [window shrink-only max-height min-height fboundp window-full-width-p frame-width window-width fit-window-to-buffer shrink-window-if-larger-than-buffer selected-window] 4 (#$ . 4486)])
#@43 To temporarily disable the active region.
(defvar org-ignore-region nil (#$ . 5201))
#@84 Is `transient-mark-mode' on and the region active?
Works on both Emacs and XEmacs.
(defalias 'org-region-active-p #[nil "?\205�\303\304!\203�\304 \207	\205�\n\207" [org-ignore-region transient-mark-mode mark-active fboundp use-region-p] 2 (#$ . 5292)])
#@138 Add elements to `buffer-invisibility-spec'.
See documentation for `buffer-invisibility-spec' for the kind of elements
that can be added.
(defalias 'org-add-to-invisibility-spec #[(arg) "\302\303!\203\n�\303!\207	\203�	\304=\203�C\211\207	B\211\207" [arg buffer-invisibility-spec fboundp add-to-invisibility-spec t] 2 (#$ . 5556)])
#@50 Remove elements from `buffer-invisibility-spec'.
(defalias 'org-remove-from-invisibility-spec #[(arg) "\302\303!\203\n�\303!\207	:\205�\304	\"\211\207" [arg buffer-invisibility-spec fboundp remove-from-invisibility-spec delete] 3 (#$ . 5900)])
#@48 Is ARG a member of `buffer-invisibility-spec'?
(defalias 'org-in-invisibility-spec-p #[(arg) ":\205�	\235\207" [buffer-invisibility-spec arg] 2 (#$ . 6154)])
#@61 Work around a bug with extents with invisibility in XEmacs.
(defalias 'org-indent-to-column #[(column &optional minimum buffer) "\302	\"\207" [column minimum indent-to-column] 3 (#$ . 6321)])
#@61 Work around a bug with extents with invisibility in XEmacs.
(defalias 'org-indent-line-to #[(column) "\301!\207" [column indent-line-to] 2 (#$ . 6520)])
(defalias 'org-move-to-column #[(column &optional force buffer) "\302	\"\207" [column force move-to-column] 3])
#@47 Get the clipboard value on XEmacs or Emacs 21
(defalias 'org-get-x-clipboard-compat #[(value) "\203�\302	!\207\303\304!\205�\305\306\307\217\207" [org-xemacs-p value get-selection-no-error fboundp x-get-selection nil (byte-code "\301\302\"\206�\301\303\"\206�\301\304\"\206�\301\305\"\207" [value x-get-selection UTF8_STRING COMPOUND_TEXT STRING TEXT] 3) ((error))] 3 (#$ . 6793)])
(defalias 'org-propertize #[(string &rest properties) "\302\303	#\207" [string properties apply propertize] 4])
(defalias 'org-substring-no-properties #[(string &optional from to) "\303	\n#\207" [string from to substring-no-properties] 4])
#@29 How many lines in string S?
(defalias 'org-count-lines #[(s) "\303\304\305\306\n	#\203�\303\225T\202�\nG\303V\203)�\n\211GSH\307U\203)�S*\207" [n start s 0 1 string-match "\n" 10] 4 (#$ . 7433)])
(provide 'org-compat)

${this.title}

Code Editor : org-compat.elc