Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : eldoc.elc

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

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

(byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\207" [require help-fns custom-declare-group eldoc nil "Show function arglist or variable docstring in echo area." :group lisp extensions] 8)
#@233 Number of seconds of idle time to wait before printing.
If user input arrives before this interval of time has elapsed after the
last input, no documentation will be printed.

If this variable is set to 0, no idle time is required.
(custom-declare-variable 'eldoc-idle-delay '0.5 '(#$ . 814) :type 'number :group 'eldoc)
#@74 String to display in mode line when ElDoc Mode is enabled; nil for none.
(custom-declare-variable 'eldoc-minor-mode-string '" ElDoc" '(#$ . 1141) :type '(choice string (const :tag "None" nil)) :group 'eldoc)
#@354 Case to display argument names of functions, as a symbol.
This has two preferred values: `upcase' or `downcase'.
Actually, any name of a function which takes a string as an argument and
returns another string is acceptable.

Note that if `eldoc-documentation-function' is non-nil, this variable
has no effect, unless the function handles it explicitly.
(custom-declare-variable 'eldoc-argument-case ''upcase '(#$ . 1356) :type '(radio (function-item upcase) (function-item downcase) function) :group 'eldoc)
#@817 Allow long ElDoc messages to resize echo area display.
If value is t, never attempt to truncate messages; complete symbol name
and function arglist or 1-line variable documentation will be displayed
even if echo area must be resized to fit.

If value is any non-nil value other than t, symbol name may be truncated
if it will enable the function arglist or documentation string to fit on a
single line without resizing window.  Otherwise, behavior is just like
former case.

If value is nil, messages are always truncated to fit in a single line of
display in the echo area.  Function or variable symbol name may be
truncated to make more of the arglist or documentation string visible.

Note that if `eldoc-documentation-function' is non-nil, this variable
has no effect, unless the function handles it explicitly.
(custom-declare-variable 'eldoc-echo-area-use-multiline-p ''truncate-sym-name-if-fit '(#$ . 1871) :type '(radio (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Yes, but truncate symbol names if it will enable argument list to fit on one line" truncate-sym-name-if-fit)) :group 'eldoc)
(custom-declare-face 'eldoc-highlight-function-argument '((t (:inherit bold))) "Face used for the argument at point in a function's argument list.\nNote that if `eldoc-documentation-function' is non-nil, this face\nhas no effect, unless the function handles it explicitly." :group 'eldoc)
#@329 Used by `eldoc-add-command' to initialize `eldoc-message-commands' obarray.
It should probably never be necessary to do so, but if you
choose to increase the number of buckets, you must do so before loading
this file since the obarray is initialized at load time.
Remember to keep it a prime number to improve hash performance.
(defvar eldoc-message-commands-table-size 31 (#$ . 3282))
#@479 Commands after which it is appropriate to print in the echo area.
ElDoc does not try to print function arglists, etc., after just any command,
because some commands print their own messages in the echo area and these
functions would instantly overwrite them.  But `self-insert-command' as well
as most motion commands are good candidates.
This variable contains an obarray of symbols; do not manipulate it
directly.  Instead, use `eldoc-add-command' and `eldoc-remove-command'.
(defconst eldoc-message-commands (make-vector eldoc-message-commands-table-size 0) (#$ . 3675))
#@276 Bookkeeping; elements are as follows:
  0 - contains the last symbol read from the buffer.
  1 - contains the string last displayed in the echo area for variables,
      or argument string for functions.
  2 - 'function if function args, 'variable if variable documentation.
(defconst eldoc-last-data (make-vector 3 nil) (#$ . 4256))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list eldoc-last-message default-boundp set-default nil] 3)
#@23 ElDoc's timer object.
(defvar eldoc-timer nil (#$ . 4731))
#@116 Idle time delay currently in use by timer.
This is used to determine if `eldoc-idle-delay' is changed by the user.
(defvar eldoc-current-idle-delay eldoc-idle-delay (#$ . 4797))
#@89 Non-nil if Eldoc mode is enabled.
Use the command `eldoc-mode' to change this variable.
(defvar eldoc-mode nil (#$ . 4981))
(make-variable-buffer-local 'eldoc-mode)
#@398 Toggle ElDoc mode on or off.
In ElDoc mode, the echo area displays information about a
function or variable in the text where point is.  If point is
on a documented variable, it displays the first line of that
variable's doc string.  Otherwise it displays the argument list
of the function called in the expression point is on.

With prefix ARG, turn ElDoc mode on if and only if ARG is positive.
(defalias 'eldoc-mode #[(&optional arg) "\304 	\305=\203�\n?\202(�	\203�\306	!\307V\202(�\n\204\"�\310\202(�\311\312\302\"\210\313\313\n\203?�\314\315\316\313\310$\210\314\317\320\310#\210\202I�\321\315\316\"\210\321\317\320\"\210\322\323\n\203S�\324\202T�\325\"\210\326 \203t�\304 \203g�\304 \232\203t�\311\327\n\203q�\330\202r�\331\"\210)\332 \210\n\207" [#1=#:last-message arg eldoc-mode eldoc-last-message current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil add-hook post-command-hook eldoc-schedule-timer pre-command-hook eldoc-pre-command-refresh-echo-area remove-hook run-hooks eldoc-mode-hook eldoc-mode-on-hook eldoc-mode-off-hook called-interactively-p "Eldoc mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 5153) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode eldoc-mode eldoc-minor-mode-string boundp eldoc-mode-map] 5)
#@62 Unequivocally turn on ElDoc mode (see command `eldoc-mode').
(defalias 'turn-on-eldoc-mode #[nil "\300\301!\207" [eldoc-mode 1] 2 (#$ . 6525) nil])
(defalias 'eldoc-schedule-timer #[nil "\203\n�	>\204�\304\n\305\306#\nU?\205�\n\307\n\305#\207" [eldoc-timer timer-idle-list eldoc-idle-delay eldoc-current-idle-delay run-with-idle-timer t eldoc-print-current-symbol-info timer-set-idle-time] 4])
(defalias 'eldoc-message #[(&rest args) "\n@=\203
�\202$�\n@\204�\304\202$�\nA\204 �\n@\202$�\305\306\n\"\304\2033�\307\310\"\210\202;�	\203;�\307\304!\210*\207" [eldoc-last-message omessage args message-log-max nil apply format message "%s"] 3])
(defalias 'eldoc-pre-command-refresh-echo-area #[nil "\205�\301 \203
�\302!\207\303\211\207" [eldoc-last-message eldoc-display-message-no-interference-p eldoc-message nil] 2])
(defalias 'eldoc-display-message-p #[nil "\303 \205�?\205�	9\205�\304\305	!\n\"\207" [this-command last-command eldoc-message-commands eldoc-display-message-no-interference-p intern-soft symbol-name] 3])
(defalias 'eldoc-display-message-no-interference-p #[nil "\205�	?\205�\304\302!\205�\n?\205�?\205�\305 \306 =?\207" [eldoc-mode executing-kbd-macro edebug-active cursor-in-echo-area boundp selected-window minibuffer-window] 2])
#@672 If non-nil, function to call to return doc string.
The function of no args should return a one-line string for displaying
doc about a function etc. appropriate to the context around point.
It should return nil if there's no doc appropriate for the context.
Typically doc is returned if point is on a function-like name or in its
arg list.

The result is used as is, so the function must explicitly handle
the variables `eldoc-argument-case' and `eldoc-echo-area-use-multiline-p',
and the face `eldoc-highlight-function-argument', if they are to have any
effect.

This variable is expected to be made buffer-local by modes (other than
Emacs Lisp mode) that support ElDoc.
(defvar eldoc-documentation-function nil (#$ . 7814))
(defalias 'eldoc-print-current-symbol-info #[nil "\300\301\302\217\207" [err (byte-code "\304 \205?�\203�\305 !\207\306 \307 \211\204�\310\202:�	\n@=\2030�\311\312\n\"\206:�\313	!\202:�\313	!\206:�\311\312\n\"\305!+\207" [eldoc-documentation-function current-symbol current-fnsym doc eldoc-display-message-p eldoc-message eldoc-current-symbol eldoc-fnsym-in-current-sexp nil apply eldoc-get-fnsym-args-string eldoc-get-var-docstring] 4) ((error (message "eldoc error: %s" err)))] 3])
#@448 Return a string containing the parameter list of the function SYM.
If SYM is a subr and no arglist is obtainable from the docstring
or elsewhere, return a 1-line docstring.  Calls the functions
`eldoc-function-argstring-format' and
`eldoc-highlight-function-argument' to format the result.  The
former calls `eldoc-argument-case'; the latter gives the
function name `font-lock-function-name-face', and optionally
highlights argument number INDEX.
(defalias 'eldoc-get-fnsym-args-string #[(sym &optional index) "\306\211\n\203d�\n9\203d�\307\n!\203d�\n\310H=\203*�\311H\312=\203*�\313H\202d�\314\315\n\316\"\n\"\211\203`�@\317\320	\"\210	\310\225\306O\321	\306\316\317
\f#,\203d�	\310\322O\202d�\323\n!	\203u�\324\n\325	!\211\312#\210\202w�	\205\203�\326\n\327	!#*\207" [doc args sym eldoc-last-data start string nil fboundp 0 2 function 1 help-split-fundoc documentation t string-match "\\`[^ )]* ?" ")\\'" -1 help-function-arglist eldoc-last-data-store eldoc-function-argstring eldoc-highlight-function-argument eldoc-function-argstring-format regexp inhibit-changing-match-data index] 4 (#$ . 9038)])
#@126 Highlight argument INDEX in ARGS list for function SYM.
In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'.
(defalias 'eldoc-highlight-function-argument #[(sym args index) "\306\307\310\203d�\311Y\203d�\312\313\f	#\203V�\307\224\307\225\314\307\f\"\211\315\230\203.�\311\202R�
\316\230\204R�\317
\306\320\312\n#,\203O�\307\202R�S)\202�\fG\211S\321\307\211\204\n�\f\n\203z�\322\f!\323\n	\324D$\210\325\326#\211,\207" [argument-face end start index args argument nil 0 eldoc-highlight-function-argument 1 string-match "[^ ()]+" match-string "&rest" "&optional" "\\.\\.\\.$" t font-lock-warning-face copy-sequence add-text-properties face eldoc-docstring-format-sym-doc font-lock-function-name-face string regexp inhibit-changing-match-data doc sym] 6 (#$ . 10173)])
(defalias 'eldoc-get-var-docstring #[(sym) "\2052�	\303H=\203�	\304H\305=\203�	\306H\207\307\310\311#\211\2030�\312\313\n!\314#\315\n\305#\210\n)\207" [sym eldoc-last-data doc 0 2 variable 1 documentation-property variable-documentation t eldoc-docstring-format-sym-doc eldoc-docstring-first-line font-lock-variable-name-face eldoc-last-data-store] 5])
(defalias 'eldoc-last-data-store #[(symbol doc type) "\304	I\210\305\nI\210\306I\207" [eldoc-last-data symbol doc type 0 1 2] 3])
(defalias 'eldoc-docstring-first-line #[(doc) ";\2058�\303\304 \305\216\306\307\"\203�\310\225\202�\310\306\311\"\203(�\n\310\224O\2026�\312\n!\2032�\2026�\n\313O+!\207" [doc save-match-data-internal start substitute-command-keys match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "\\`\\*" 0 "\n" zerop nil] 4])
(defalias 'eldoc-docstring-format-sym-doc #[(sym doc face) "\306 \307\216\310	!\311\312 !S\313\nG\314GG#
Z\211\315X\2046�\f\316=\2046�\f\203D�G
V\203D�\317\320\321\n\322##\202x�G
V\203W�\317\323\"\315
O\202x�\nGY\203g�\317\323\"\202x�\n\324O\317\320\321\n\322##.\207" [save-match-data-internal sym name eldoc-echo-area-use-multiline-p ea-multi ea-width match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) symbol-name window-width minibuffer-window + ": " 0 t format "%s: %s" propertize face "%s" nil doc strip] 7])
(defalias 'eldoc-fnsym-in-current-sexp #[nil "\212\301 S\211\302W\203
�\302`Sf\206�\302\303U?\205�\304 D*\207" [argument-index eldoc-beginning-of-sexp 0 34 eldoc-current-symbol] 3])
(defalias 'eldoc-beginning-of-sexp #[nil "\302\303\304\305\306\217\210*\207" [num-skipped-sexps parse-sexp-ignore-comments t 0 err (byte-code "\302\303\304\217\210`\305\306!\210`W\205�	T\211)\204�\302\207" [p num-skipped-sexps err (byte-code "`\302\303!\210\302\304!\210`W\203�\304)\302\207" [p num-skipped-sexps forward-sexp -1 1] 2) ((error)) forward-sexp -1] 3) ((error))] 3])
(defalias 'eldoc-current-symbol #[nil "`f\211\205�z\301>\205�\302\303 !)\207" [c (119 95) intern-soft current-word] 3])
(defalias 'eldoc-symbol-function #[(fsym) "\302!\205�K\2119\203�\303\304\305\217\210	)\207" [fsym defn fboundp err (byte-code "\302!\302\207" [fsym defn indirect-function] 2) ((error (byte-code "\301\211\207" [defn nil] 2)))] 4])
#@105 Return ARGLIST as a string enclosed by ().
ARGLIST is either a string, or a list of strings or symbols.
(defalias 'eldoc-function-argstring #[(arglist) ";\204*�<\204�\301\202*�@9\203�\302\303\304#\202*�@;\203*�\302\305\304#\2052�\306\307\"\207" [arglist nil mapconcat #[(s) "\301!\207" [s symbol-name] 2] " " #[(s) "\207" [s] 1] format "(%s)"] 4 (#$ . 13411)])
#@111 Apply `eldoc-argument-case' to each word in ARGSTRING.
The words "&rest", "&optional" are returned unchanged.
(defalias 'eldoc-function-argstring-format #[(argstring) "\301\302\303!\304#\207" [argstring mapconcat #[(s) "\306\307\310\311\n	#,\203�\207
!\207" [s start string regexp inhibit-changing-match-data eldoc-argument-case "\\`(?&\$?:optional\\|rest\$)?\\'" nil t string-match] 4] split-string " "] 4 (#$ . 13794)])
(defalias 'eldoc-add-command #[(&rest cmds) "\304\211\205#�\n@\2119\203�\305	!\306	\"\307L\210\nA\211\204�\304*\207" [cmds name --dolist-tail-- eldoc-message-commands nil symbol-name intern t] 4])
(defalias 'eldoc-add-command-completions #[(&rest names) "\304\211\205�\n@\305\306\307	\310#\"\210\nA\211\204�\304*\207" [names name --dolist-tail-- obarray nil apply eldoc-add-command all-completions commandp] 7])
(defalias 'eldoc-remove-command #[(&rest cmds) "\304\211\205!�\n@\2119\203�\305	!\306	\"\210\nA\211\204�\304*\207" [cmds name --dolist-tail-- eldoc-message-commands nil symbol-name unintern] 4])
(defalias 'eldoc-remove-command-completions #[(&rest names) "\304\211\205�\n@\305\306\307	\"\"\210\nA\211\204�\304*\207" [names name --dolist-tail-- eldoc-message-commands nil apply eldoc-remove-command all-completions] 6])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332&\210\333\334!\207" [eldoc-add-command-completions "backward-" "beginning-of-" "move-beginning-of-" "delete-other-windows" "delete-window" "handle-select-window" "end-of-" "move-end-of-" "exchange-point-and-mark" "forward-" "indent-for-tab-command" "goto-" "mark-page" "mark-paragraph" "mouse-set-point" "move-" "pop-global-mark" "next-" "other-window" "previous-" "recenter" "scroll-" "self-insert-command" "split-window-" "up-list" "down-list" provide eldoc] 27)

${this.title}

Code Editor : eldoc.elc