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 : warnings.elc

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

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

(custom-declare-group 'warnings nil "Log and display warnings." :version "22.1" :group 'lisp)
#@633 List of severity level definitions for `display-warning'.
Each element looks like (LEVEL STRING FUNCTION) and
defines LEVEL as a severity level.  STRING specifies the
description of this level.  STRING should use `%s' to
specify where to put the warning type information,
or it can omit the `%s' so as not to include that information.

The optional FUNCTION, if non-nil, is a function to call
with no arguments, to get the user's attention.

The standard levels are :emergency, :error, :warning and :debug.
See `display-warning' for documentation of their meanings.
Level :debug is ignored by default (see `warning-minimum-level').
(defvar warning-levels '((:emergency "Emergency%s: " ding) (:error "Error%s: ") (:warning "Warning%s: ") (:debug "Debug%s: ")) (#$ . 713))
(put 'warning-levels 'risky-local-variable t)
#@218 Alist of aliases for severity levels for `display-warning'.
Each element looks like (ALIAS . LEVEL) and defines
ALIAS as equivalent to LEVEL.  LEVEL must be defined in `warning-levels';
it may not itself be an alias.
(defvar warning-level-aliases '((emergency . :emergency) (error . :error) (warning . :warning) (notice . :warning) (info . :warning) (critical . :emergency) (alarm . :emergency)) (#$ . 1537))
#@239 Minimum severity level for displaying the warning buffer.
If a warning's severity level is lower than this,
the warning is logged in the warnings buffer, but the buffer
is not immediately displayed.  See also `warning-minimum-log-level'.
(custom-declare-variable 'warning-minimum-level ':warning '(#$ . 1953) :group 'warnings :type '(choice (const :emergency) (const :error) (const :warning) (const :debug)) :version "22.1")
(defvaralias 'display-warning-minimum-level 'warning-minimum-level)
#@242 Minimum severity level for logging a warning.
If a warning severity level is lower than this,
the warning is completely ignored.
Value must be lower or equal than `warning-minimum-level',
because warnings not logged aren't displayed either.
(custom-declare-variable 'warning-minimum-log-level ':warning '(#$ . 2453) :group 'warnings :type '(choice (const :emergency) (const :error) (const :warning) (const :debug)) :version "22.1")
(defvaralias 'log-warning-minimum-level 'warning-minimum-log-level)
#@398 List of warning types that should not be logged.
If any element of this list matches the TYPE argument to `display-warning',
the warning is completely ignored.
The element must match the first elements of TYPE.
Thus, (foo bar) as an element matches (foo bar)
or (foo bar ANYTHING...) as TYPE.
If TYPE is a symbol FOO, that is equivalent to the list (FOO),
so only the element (FOO) will match it.
(custom-declare-variable 'warning-suppress-log-types 'nil '(#$ . 2960) :group 'warnings :type '(repeat (repeat symbol)) :version "22.1")
#@501 List of warning types not to display immediately.
If any element of this list matches the TYPE argument to `display-warning',
the warning is logged nonetheless, but the warnings buffer is
not immediately displayed.
The element must match an initial segment of the list TYPE.
Thus, (foo bar) as an element matches (foo bar)
or (foo bar ANYTHING...) as TYPE.
If TYPE is a symbol FOO, that is equivalent to the list (FOO),
so only the element (FOO) will match it.
See also `warning-suppress-log-types'.
(custom-declare-variable 'warning-suppress-types 'nil '(#$ . 3501) :group 'warnings :type '(repeat (repeat symbol)) :version "22.1")
#@358 Function to generate warning prefixes.
This function, if non-nil, is called with two arguments,
the severity level and its entry in `warning-levels',
and should return the entry that should actually be used.
The warnings buffer is current when this function is called
and the function can insert text in it.  This text becomes
the beginning of the warning.
(defvar warning-prefix-function nil (#$ . 4141))
#@410 Non-nil means treat multiple `display-warning' calls as a series.
A marker indicates a position in the warnings buffer
which is the start of the current series; it means that
additional warnings in the same buffer should not move point.
t means the next warning begins a series (and stores a marker here).
A symbol with a function definition is like t, except
also call that function before the next warning.
(defvar warning-series nil (#$ . 4554))
(put 'warning-series 'risky-local-variable t)
#@74 Non-nil means fill each warning text using this string as `fill-prefix'.
(defvar warning-fill-prefix nil (#$ . 5055))
#@189 Format for displaying the warning type in the warning message.
The result of formatting the type this way gets included in the
message under the control of the string in `warning-levels'.
(defvar warning-type-format " (%s)" (#$ . 5180))
#@63 Return a numeric measure of the warning severity level LEVEL.
(defalias 'warning-numeric-level #[(level) "	\236\211	>\211G*\207" [level warning-levels elt link] 3 (#$ . 5423)])
#@119 Non-nil if a warning with type TYPE should be suppressed.
SUPPRESS-LIST is the list of kinds of warnings to suppress.
(defalias 'warning-suppress-p #[(type suppress-list) "\306	\306\211\203]�@\f9\203(�\n:\203V�\n@\f=\203V�\nA\204V�\307\202V�\f\n\307	\203O�	@@\232\204A�\306	A	A\211\2045�
\203U�\307+A\211\204\n�*)\207" [some-match suppress-list elt --dolist-tail-- type match nil t tem2 tem1] 4 (#$ . 5610)])
#@1147 Display a warning message, MESSAGE.
TYPE is the warning type: either a custom group name (a symbol),
or a list of symbols whose first element is a custom group name.
(The rest of the symbols represent subcategories, for warning purposes
only, and you can use whatever symbols you like.)

LEVEL should be either :debug, :warning, :error, or :emergency
(but see `warning-minimum-level' and `warning-minimum-log-level').
Default is :warning.

:emergency -- a problem that will seriously impair Emacs operation soon
	      if you do not attend to it promptly.
:error     -- data or circumstances that are inherently wrong.
:warning   -- data or circumstances that are not inherently wrong,
	      but raise suspicion of a possible problem.
:debug     -- info for debugging only.

BUFFER-NAME, if specified, is the name of the buffer for logging
the warning.  By default, it is `*Warnings*'.  If this function
has to create the buffer, it disables undo in the buffer.

See the `warnings' custom group for user customization features.

See also `warning-series', `warning-prefix-function' and
`warning-fill-prefix' for additional programming features.
(defalias 'display-warning #[(type message &optional level buffer-name) "\204�\306	\204\f�\307\n\236\203�\n\236A\310!\310!W\206_\311\f
\"\206_\f:\2032�\f@\2023�\f \312	!!\313	!\"#\236$\314\211%&r\"q\210!\204X�\315'db\210(\203u�(9\203u�\316 (\315=\204s�( \210(n\204|�\317 \210`%)\203\214�)$\"$\320$A@\320* \"\"\261\210\317 \210+\203\273�\321\322\"\204\273�+\323,-\324%`\"\210*`&\325(!\203\323�\326(!\"=\203\323�(b\210)\327$8\203\341�\327$8 \210.\203r\"q\210\212&b\210n\203\367�\330u\210\331\332%`{\"*\202]\333 \203(/\204(\331\332r\"q\210\212&b\210n\203\330u\210%`{*\"\202]\310!\3100!W\206]\311\f1\"\206]\334\"!2\325(!\203Y\326(!\"=\203Y\3352(\"\210\336\337!).\207" [level buffer-name warning-level-aliases warning-minimum-log-level type warning-suppress-log-types :warning "*Warnings*" warning-numeric-level warning-suppress-p get-buffer get-buffer-create nil t point-marker newline format string-match "\n" 78 fill-region markerp marker-buffer 2 -1 message "%s" daemonp display-buffer set-window-start sit-for 0 typename old buffer warning-levels level-info start end buffer-undo-list warning-series warning-prefix-function warning-type-format warning-fill-prefix fill-column fill-prefix noninteractive after-init-time warning-minimum-level warning-suppress-types window] 6 (#$ . 6053)])
#@744 Display a warning message made from (format MESSAGE ARGS...).
Aside from generating the message with `format',
this is equivalent to `display-warning'.

TYPE is the warning type: either a custom group name (a symbol),
or a list of symbols whose first element is a custom group name.
(The rest of the symbols represent subcategories and
can be whatever you like.)

LEVEL should be either :debug, :warning, :error, or :emergency
(but see `warning-minimum-level' and `warning-minimum-log-level').

:emergency -- a problem that will seriously impair Emacs operation soon
	      if you do not attend to it promptly.
:error     -- invalid data or circumstances.
:warning   -- suspicious data or circumstances.
:debug     -- info for debugging only.
(defalias 'lwarn #[(type level message &rest args) "\304\305\306	\n##\207" [type message args level display-warning apply format] 6 (#$ . 8579)])
#@208 Display a warning message made from (format MESSAGE ARGS...).
Aside from generating the message with `format',
this is equivalent to `display-warning', using
`emacs' as the type and `:warning' as the level.
(defalias 'warn #[(message &rest args) "\302\303\304\305	#\"\207" [message args display-warning emacs apply format] 6 (#$ . 9477)])
(provide 'warnings)

${this.title}

Code Editor : warnings.elc