Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
advice.elc	54 KB	-rw-r--r--
autoload.elc	28.25 KB	-rw-r--r--
avl-tree.elc	27.45 KB	-rw-r--r--
backquote.elc	4.68 KB	-rw-r--r--
backtrace.elc	40.98 KB	-rw-r--r--
benchmark.elc	3.74 KB	-rw-r--r--
bindat.elc	10.73 KB	-rw-r--r--
byte-opt.elc	39.59 KB	-rw-r--r--
byte-run.elc	17.44 KB	-rw-r--r--
bytecomp.elc	154.17 KB	-rw-r--r--
cconv.elc	20.71 KB	-rw-r--r--
chart.elc	25.98 KB	-rw-r--r--
check-declare.elc	9.01 KB	-rw-r--r--
checkdoc.elc	74.78 KB	-rw-r--r--
cl-extra.elc	29.37 KB	-rw-r--r--
cl-generic.elc	59.25 KB	-rw-r--r--
cl-indent.elc	18.03 KB	-rw-r--r--
cl-lib.elc	31.72 KB	-rw-r--r--
cl-loaddefs.el	45.79 KB	-rw-r--r--
cl-macs.elc	90.7 KB	-rw-r--r--
cl-preloaded.elc	27.28 KB	-rw-r--r--
cl-print.elc	14.77 KB	-rw-r--r--
cl-seq.elc	38.35 KB	-rw-r--r--
copyright.elc	10.17 KB	-rw-r--r--
crm.elc	7.62 KB	-rw-r--r--
cursor-sensor.elc	6.74 KB	-rw-r--r--
debug.elc	36.42 KB	-rw-r--r--
derived.elc	11.88 KB	-rw-r--r--
disass.elc	6.11 KB	-rw-r--r--
easy-mmode.elc	19.78 KB	-rw-r--r--
easymenu.elc	19.88 KB	-rw-r--r--
edebug.elc	123.13 KB	-rw-r--r--
eieio-base.elc	17.17 KB	-rw-r--r--
eieio-compat.elc	8.41 KB	-rw-r--r--
eieio-core.elc	36.91 KB	-rw-r--r--
eieio-custom.elc	15.8 KB	-rw-r--r--
eieio-datadebug.elc	3.17 KB	-rw-r--r--
eieio-loaddefs.el	3.96 KB	-rw-r--r--
eieio-opt.elc	9.32 KB	-rw-r--r--
eieio-speedbar.elc	13.13 KB	-rw-r--r--
eieio.elc	33.03 KB	-rw-r--r--
eldoc.elc	19.14 KB	-rw-r--r--
elint.elc	30.6 KB	-rw-r--r--
elp.elc	12.68 KB	-rw-r--r--
ert-x.elc	11.48 KB	-rw-r--r--
ert.elc	177.96 KB	-rw-r--r--
ewoc.elc	25.26 KB	-rw-r--r--
faceup.elc	16.97 KB	-rw-r--r--
find-func.elc	21.61 KB	-rw-r--r--
float-sup.elc	1.21 KB	-rw-r--r--
generator.elc	27.42 KB	-rw-r--r--
generic.elc	7.18 KB	-rw-r--r--
gv.elc	22.69 KB	-rw-r--r--
helper.elc	3.96 KB	-rw-r--r--
inline.elc	8.37 KB	-rw-r--r--
let-alist.elc	3.04 KB	-rw-r--r--
lisp-mnt.elc	22.59 KB	-rw-r--r--
lisp-mode.elc	38.03 KB	-rw-r--r--
lisp.elc	21.44 KB	-rw-r--r--
macroexp.elc	18.01 KB	-rw-r--r--
map-ynp.elc	10.54 KB	-rw-r--r--
map.elc	18.25 KB	-rw-r--r--
nadvice.elc	17.65 KB	-rw-r--r--
package-x.elc	9.06 KB	-rw-r--r--
package.elc	146.54 KB	-rw-r--r--
pcase.elc	23.11 KB	-rw-r--r--
pp.elc	5.5 KB	-rw-r--r--
radix-tree.elc	5.88 KB	-rw-r--r--
re-builder.elc	25.78 KB	-rw-r--r--
regexp-opt.elc	6.3 KB	-rw-r--r--
regi.elc	6 KB	-rw-r--r--
ring.elc	6.32 KB	-rw-r--r--
rmc.elc	4.79 KB	-rw-r--r--
rx.elc	40.69 KB	-rw-r--r--
seq.elc	23.64 KB	-rw-r--r--
shadow.elc	9.34 KB	-rw-r--r--
smie.elc	48.84 KB	-rw-r--r--
subr-x.elc	11.17 KB	-rw-r--r--
syntax.elc	26.13 KB	-rw-r--r--
tabulated-list.elc	26.57 KB	-rw-r--r--
tcover-ses.elc	14.29 KB	-rw-r--r--
tcover-unsafep.elc	3.87 KB	-rw-r--r--
testcover.elc	23.03 KB	-rw-r--r--
text-property-search.elc	8.13 KB	-rw-r--r--
thunk.elc	3.06 KB	-rw-r--r--
timer-list.elc	4.3 KB	-rw-r--r--
timer.elc	21.65 KB	-rw-r--r--
tq.elc	3.99 KB	-rw-r--r--
trace.elc	7.27 KB	-rw-r--r--
unsafep.elc	4.45 KB	-rw-r--r--
warnings.elc	9.75 KB	-rw-r--r--

Code Editor : lisp-mnt.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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

(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\210\310\323\312\313\324DD\325\316\326%\210\310\327\312\313\330DD\331\316\317%\210\310\332\312\313\333DD\334\316\317%\210\310\335\312\313\336DD\337\316\317%\207" [custom-declare-group lisp-mnt nil "Utility functions for Emacs Lisp maintainers." :prefix "lm-" :group maint custom-declare-variable lm-header-prefix funcall function #[0 "\300\207" [#1="^;+[ 	]+\$@(#)\$?[ 	]*\\$?"] 1 #1#] "Prefix that is ignored before the tag.\nFor example, you can write the 1st line synopsis string and headers like this\nin your Lisp package:\n\n   ;; @(#) package.el -- package description\n   ;;\n   ;; @(#) $Maintainer:   Person Foo Bar $\n\nThe @(#) construct is used by unix what(1) and\nthen $identifier: doc string $ is used by GNU ident(1)" :type regexp lm-copyright-prefix #[0 "\300\207" [#2="^\$;+[ 	]\$+Copyright (C) "] 1 #2#] "Prefix that is ignored before the dates in a copyright.\nLeading comment characters and whitespace should be in regexp group 1." lm-comment-column #[0 "\300\207" [16] 1] "Column used for placing formatted output." integer lm-any-header #[0 "\300\207" [#3=".*"] 1 #3#] "Regexp which matches start of any section." lm-commentary-header #[0 "\300\207" [#4="Commentary\\|Documentation"] 1 #4#] "Regexp which matches start of documentation section." lm-history-header #[0 "\300\207" [#5="Change ?Log\\|History"] 1 #5#] "Regexp which matches the start of code log section."] 8)
#@150 Return regexp for matching HEADER.
If called with optional MODE and with value `section',
return section regexp instead.

(fn HEADER &optional MODE)
(defalias 'lm-get-header-re #[513 "\211\301=\203�\302\303Q\207\304\305R\207" [lm-header-prefix section "^;;;;* \$" "\$:[ 	]*$" "\$" "\$[ 	]*:[ 	]*"] 6 (#$ . 1933)])
#@51 Return package name by looking at the first line.
(defalias 'lm-get-package-name #[0 "\212eb\210\301\260!\205�\302\225b\210\301\303!\210\304\225\205�\305\304!)\207" [lm-header-prefix looking-at 0 "\$[^	 ]+\$" 1 match-string-no-properties] 2 (#$ . 2261)])
#@251 Return the buffer location of a given section start marker.
The HEADER is the section mark string to search for.
If AFTER is non-nil, return the location of the next line.
If the given section does not exist, return nil.

(fn HEADER &optional AFTER)
(defalias 'lm-section-start #[513 "\212\301eb\210\302\303\304\"\305\301#\205�\306\205�\307!*\207" [case-fold-search t re-search-forward lm-get-header-re section nil line-beginning-position 2] 6 (#$ . 2529)])
(defalias 'lm-section-mark 'lm-section-start)
#@393 Return the buffer location of the end of a given section.
The HEADER is the section string marking the beginning of the
section.  If the given section does not exist, return nil.

The section ends before the first non-comment text or the next
section of the same level or lower; whatever comes first.  The
function `lisp-outline-level' is used to compute the level of
a section.

(fn HEADER)
(defalias 'lm-section-end #[257 "\302\303!\210\304!\211\205Y�\212\211b\210\305 \306\307\310\311!\210\312\313	\314\"\307\306#\211\262\2033�\212\310 \210\305 )V\204�\211\203I�\310\315!\210\316\317!\204E�\310\311!\210`\202J�db\210\320\321!\204M�`^)\266\203)\207" [case-fold-search lm-any-header require outline lm-section-start lisp-outline-level t nil beginning-of-line 2 re-search-forward lm-get-header-re section 0 looking-at "\f" forward-comment 1] 9 (#$ . 3045)])
#@56 Return the buffer location of the `Code' start marker.
(defalias 'lm-code-start #[0 "\300\301!\207" [lm-section-start "Code"] 2 (#$ . 3916)])
(defalias 'lm-code-mark 'lm-code-start)
#@62 Return the buffer location of the `Commentary' start marker.
(defalias 'lm-commentary-start #[0 "\301!\207" [lm-commentary-header lm-section-start] 2 (#$ . 4104)])
(defalias 'lm-commentary-mark 'lm-commentary-start)
#@61 Return the buffer location of the `Commentary' section end.
(defalias 'lm-commentary-end #[0 "\301!\207" [lm-commentary-header lm-section-end] 2 (#$ . 4327)])
#@59 Return the buffer location of the `History' start marker.
(defalias 'lm-history-start #[0 "\301!\207" [lm-history-header lm-section-start] 2 (#$ . 4493)])
(defalias 'lm-history-mark 'lm-history-start)
#@53 Return the buffer location of the `Copyright' line.
(defalias 'lm-copyright-mark #[0 "\212\302eb\210\303	\304\302#\205�`*\207" [case-fold-search lm-copyright-prefix t re-search-forward nil] 4 (#$ . 4701)])
#@62 Return the contents of the header named HEADER.

(fn HEADER)
(defalias 'lm-header #[257 "eb\210\301\302\303!\304 \301#\205+�\305\212\306\307\224x\210`\307\224U)\203#�\310\202$�\311!\205+�\312\307!)\207" [case-fold-search t re-search-forward lm-get-header-re lm-code-mark looking-at "^$" 0 "[^\n]+" "[^$\n]+" match-string-no-properties] 5 (#$ . 4915)])
#@142 Return the contents of the header named HEADER, with continuation lines.
The returned value is a list of strings, one per line.

(fn HEADER)
(defalias 'lm-header-multiline #[257 "\212eb\210\300!\211\203%�\211C\262\301y\210\302\303!\203%�\304\305!B\262\301y\210\202�\211\237\262)\207" [lm-header 1 looking-at "^;+\$	\\|[	 ]\\{2,\\}\$\$.+\$" match-string-no-properties 2] 4 (#$ . 5276)])
#@133 Execute BODY in a buffer containing the contents of FILE.
If FILE is nil, execute BODY in the current buffer.

(fn FILE &rest BODY)
(defalias 'lm-with-file '(macro . #[385 "\300\301!\302DC\303\304\305D\306BBB\307\310\311\312\313\314\fBBFDFE\207" [make-symbol "file" let if with-temp-buffer insert-file-contents (emacs-lisp-mode) save-excursion save-restriction (widen) (goto-char (point-min)) with-syntax-table emacs-lisp-mode-syntax-table] 15 (#$ . 5679)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lm-with-file lisp-indent-function 1 put edebug-form-spec t] 5)
#@183 Return the copyright holder, and a list of copyright years.
Use the current buffer if FILE is nil.
Return argument is of the form ("HOLDER" "YEAR1" ... "YEARN")

(fn &optional FILE)
(defalias 'lm-crack-copyright #[256 "\211\211\203\271�\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314 \210\315 b\210\316\211`\317 \212\320\312!\210\321\322!\320 \210\323!\203J�\323!\204J�\317 \262\320\312!\210\2023�\210)p\302\303!r\211q\210\304\305\306\307\310!\324\"\312$\216\325#\210eb\210\326\327\316\330#\203x�\331\332!\210\202i�eb\210\326\333\316\330#\203\212�\331\334!\210\202{�eb\210\326\335\316\330#\203\237�\321\322!B\262\202\215�\323\336!\203\252�\321\305!\262*\266\237B\266\204*\262\202n\212\214~\210eb\210\337 p\304\305\340\307\310\"\341\"\312$\216\342	!\210\315 b\210\316\211`\317 \212\320\312!\210\321\322!\320 \210\323!\203\323!\204\317 \262\320\312!\210\202\352�\210)p\302\303!r\211q\210\304\305\306\307\310!\343\"\312$\216\325#\210eb\210\326\327\316\330#\203/\331\332!\210\202 eb\210\326\333\316\330#\203A\331\334!\210\2022eb\210\326\335\316\330#\203V\321\322!B\262\202D\323\336!\203a\321\305!\262*\266\237B\266\204)\266\202*\207" [lm-copyright-prefix emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-copyright-mark nil line-end-position beginning-of-line match-string-no-properties 1 looking-at [buffer-name kill-buffer] insert-buffer-substring re-search-forward "^;+[ 	]+" t replace-match "" " *\n" " " "\$[0-9]+\$,? +" ".*$" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table [buffer-name kill-buffer]] 16 (#$ . 6282)])
#@98 Return the one-line summary of file FILE, or current buffer if FILE is nil.

(fn &optional FILE)
(defalias 'lm-summary #[256 "\211\211\203N�\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314 \210eb\210\315!\205H�\305\225b\210\315\316!\205H�\317\320!\321\322\"\203E�\323\305\211\224#\202F�\211\262*\262\202\230�\212\214~\210eb\210\324 p\304\305\325\307\310\"\326\"\312$\216\327	!\210eb\210\315!\205\224�\305\225b\210\315\316!\205\224�\317\320!\321\322\"\203\221�\323\305\211\224#\202\222�\211\262)\266\202*\207" [lm-header-prefix emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode looking-at "[^ ]+[ 	]+--+[ 	]+\$.*\$" match-string-no-properties 1 string-match "[ 	]*-\\*-.*-\\*-" substring syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 8044)])
#@130 Split up an email address X into full name and real email address.
The value is a cons of the form (FULLNAME . ADDRESS).

(fn X)
(defalias 'lm-crack-address #[257 "\300\301\"\203�\302\303\"\302\304\"B\207\300\305\"\203\"�\302\304\"\302\303\"B\207\300\306\"\203-�\307B\207\211\307B\207" [string-match "\$.+\$ [(<]\$\\S-+@\\S-+\$[>)]" match-string 1 2 "\$\\S-+@\\S-+\$ [(<]\$.*\$[>)]" "\\S-+@\\S-+" nil] 5 (#$ . 9006)])
#@184 Return the author list of file FILE, or current buffer if FILE is nil.
Each element of the list is a cons; the car is the full name,
the cdr is an email address.

(fn &optional FILE)
(defalias 'lm-authors #[256 "\211\211\203.�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314\315!\316\317\"\262*\262\202X�\212\214~\210eb\210\320 p\303\304\321\306\307\"\322\"\311$\216\323!\210\314\315!\316\317\"\262)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header-multiline "author" mapcar lm-crack-address syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 9448)])
#@140 Return the maintainer of file FILE, or current buffer if FILE is nil.
The return value has the form (NAME . ADDRESS).

(fn &optional FILE)
(defalias 'lm-maintainer #[256 "\211\211\2037�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314\315!\211\203,�\316!\202/�\317 @\262*\262\202j�\212\214~\210eb\210\320 p\303\304\321\306\307\"\322\"\311$\216\323!\210\314\315!\211\203a�\316!\202d�\317 @\262)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header "maintainer" lm-crack-address lm-authors syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 10245)])
#@100 Return the created date given in file FILE, or current buffer if FILE is nil.

(fn &optional FILE)
(defalias 'lm-creation-date #[256 "\211\211\203(�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314\315!*\262\202L�\212\214~\210eb\210\316 p\303\304\317\306\307\"\320\"\311$\216\321!\210\314\315!)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header "created" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 11034)])
#@167 Return the modify-date given in file FILE, or current buffer if FILE is nil.
ISO-DATE non-nil means return the date in ISO 8601 format.

(fn &optional FILE ISO-DATE)
(defalias 'lm-last-modified-date #[512 "\211\203T�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210eb\210\314\315\316 \317#\205N�\320\321!\320\311!\320\322!\203B�\323\324$\202L�\323\325\326!\3278$\266\203*\262\202\245�\212\214~\210eb\210\330 p\303\304\331\306\307\"\332\"\311$\216\333!\210eb\210\314\315\316 \317#\205\241�\320\321!\320\311!\320\322!\203\225�\323\324$\202\237�\323\325\326!\3278$\266\203)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode re-search-forward "\\$[I]d: [^ ]+ [^ ]+ \$[^/]+\$/\$[^/]+\$/\$[^ ]+\$ " lm-code-mark t match-string 3 1 format "%s-%s-%s" "%s %s %s" string-to-number ("" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 13 (#$ . 11689)])
#@140 Return the version listed in file FILE, or current buffer if FILE is nil.
This can be found in an RCS or SCCS header.

(fn &optional FILE)
(defalias 'lm-version #[256 "\211\211\203h�\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314 \210\315\316!\206b�\317 eb\210\320\321\322#\2038�\323\324!\202`�\320\325\322#\203F�\323\324!\202`�\320\326\203T�\327\330!!\202U�\331\332Q\322#\205`�\323\324!\262*\262\202\314�\212\214~\210eb\210\333 p\304\305\334\307\310\"\335\"\312$\216\336	!\210\315\316!\206\310�\317 eb\210\320\321\322#\203\236�\323\324!\202\306�\320\325\322#\203\254�\323\324!\202\306�\320\326\203\272�\327\330!!\202\273�\331\332Q\322#\205\306�\323\324!\262)\266\202*\207" [buffer-file-name emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header "version" lm-code-mark re-search-forward "\\$[I]d: [^ ]+ \$[^ ]+\$ " t match-string-no-properties 1 "\\$Revision: +\$[^ ]+\$ " "@(#)" regexp-quote file-name-nondirectory "[^	\n]+" "	\$[012345679.]*\$" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 12847)])
#@231 Return the keywords given in file FILE, or current buffer if FILE is nil.
The return is a `downcase'-ed string, or nil if no keywords
header.  Multi-line keywords are joined up with a space between
each line.

(fn &optional FILE)
(defalias 'lm-keywords #[256 "\211\211\2033�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314\315!\211\205+�\316\317\320#\262*\262\202b�\212\214~\210eb\210\321 p\303\304\322\306\307\"\323\"\311$\216\324!\210\314\315!\211\205\\�\316\317\320#\262)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header-multiline "keywords" mapconcat downcase " " syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 14085)])
#@66 Return list of keywords given in file FILE.

(fn &optional FILE)
(defalias 'lm-keywords-list #[256 "\301!\211\205&�\302\303\304\305#)\266\203\203 �\306\307\304\310$\202&�\306\311\304\310$\207" [inhibit-changing-match-data lm-keywords "," nil t string-match split-string ",[ 	\n]*" "[ ]+" "[ 	\n]+"] 9 (#$ . 14958)])
#@82 Return non-nil if any keywords in FILE are known to finder.

(fn &optional FILE)
(defalias 'lm-keywords-finder-p #[256 "\301\302!\210\303!\3042'�\211\203%�\305\306@!\"\203�\307\304\310\"\210\211A\262\202�\3110\207" [finder-known-keywords require finder lm-keywords-list keyword-found assoc intern throw t nil] 5 (#$ . 15288)])
#@175 Return the adapted-by names in file FILE, or current buffer if FILE is nil.
This is the name of the person who cleaned up this package for
distribution.

(fn &optional FILE)
(defalias 'lm-adapted-by #[256 "\211\211\203(�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314\315!*\262\202L�\212\214~\210eb\210\316 p\303\304\317\306\307\"\320\"\311$\216\321!\210\314\315!)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header "adapted-by" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 15628)])
#@300 Return the commentary in file FILE, or current buffer if FILE is nil.
Return the value as a string.  In the file, the commentary
section starts with the tag `Commentary' or `Documentation' and
ends just before the next section.  If the commentary section is
absent, return nil.

(fn &optional FILE)
(defalias 'lm-commentary #[256 "\211\211\2032�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314 \211\205*�\315\316 \"\262*\262\202`�\212\214~\210eb\210\317 p\303\304\320\306\307\"\321\"\311$\216\322!\210\314 \211\205Z�\315\316 \"\262)\266\202*\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-commentary-start buffer-substring-no-properties lm-commentary-end syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table] 11 (#$ . 16358)])
#@90 Return the homepage in file FILE, or current buffer if FILE is nil.

(fn &optional FILE)
(defalias 'lm-homepage #[256 "\211\211\203(�\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312!\210\313 \210\314\315!*\262\202L�\212\214~\210eb\210\316 p\303\304\317\306\307\"\320\"\311$\216\321!\210\314\315!)\266\202*\262\211\203a�\322\323\"\203a�\324\325\326#\202b�\211\207" [emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents emacs-lisp-mode lm-header "\$?:x-\$?\$?:homepage\\|url\$" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table string-match "^<.+>$" substring 1 -1] 11 (#$ . 17304)])
#@65 Insert, at column COL, list of STRINGS.

(fn COL &rest STRINGS)
(defalias 'lm-insert-at-column #[385 "iV\203	�\300c\210\301\302\"\210\303\304\"\207" ["\n" move-to-column t apply insert] 5 (#$ . 18062)])
#@457 Check that the current buffer (or FILE if given) is in proper format.
If FILE is a directory, recurse on its files and generate a report in a
temporary buffer.  In that case, the optional argument SHOWOK
says display "OK" in temp buffer for files that have no problems.

Optional argument VERBOSE specifies verbosity level.
Optional argument NON-FSF-OK if non-nil means a non-FSF
copyright notice is allowed.

(fn &optional FILE SHOWOK VERBOSE NON-FSF-OK)
(defalias 'lm-verify #[1024 "\205�\302\303\203i�\304!\203i�\305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316\303\317#\211\203]�\211@\320!\203V�\321!\322\261\210\211\203K�\323\324#\210\202U�\203U�\323\325\"\210\210A\266\202\202*�\326 \262*\262\262\202\303\211\203\305\306!r\211q\210\307\310\311\312\313!\327\"\315$\216\330!\210\331 \210\332 \262\204\224�\333\202\334 \204\235�\335\202\336 \204\246�\337\202\340 \204\257�\341\202\342 \204\270�\343\202\344 \204\301�\345\202\346 \204\312�\347\202\350 \204\323�\351\202\352 \204\334�\353\202db\210\354\355\356R\303\357#\204\360�\360\202\361 \203\372�\362 \204\376�\363\202\204\364\365\362 @\"\204\366\202\262*\210\202\302\212\214~\210eb\210\367 p\307\310\370\312\313\"\371\"\315$\216\372	!\210\332 \262\204@\333\202\274\334 \204I\335\202\274\336 \204R\337\202\274\340 \204[\341\202\274\342 \204d\343\202\274\344 \204m\345\202\274\346 \204v\347\202\274\350 \204\351\202\274\352 \204\210\353\202\274db\210\354\355\356R\303\357#\204\234\360\202\274\361 \203\246\362 \204\252\363\202\274\204\273\364\365\362 @\"\204\273\366\202\274\262)\266*\210\203\314\373\374\"\210\207" [lm-comment-column emacs-lisp-mode-syntax-table "Ok" nil file-directory-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 directory-files "\\.el\\'" file-regular-p lm-verify ":" lm-insert-at-column "\n" "OK\n" buffer-string [buffer-name kill-buffer] insert-file-contents emacs-lisp-mode lm-get-package-name "Can't find package name" lm-authors "`Author:' tag missing" lm-maintainer "`Maintainer:' tag missing" lm-summary "Can't find the one-line summary description" lm-keywords "`Keywords:' tag missing" lm-keywords-finder-p "`Keywords:' has no valid finder keywords (see `finder-known-keywords')" lm-commentary-mark "Can't find a `Commentary' section marker" lm-history-mark "Can't find a `History' section marker" lm-code-mark "Can't find a `Code' section marker" re-search-backward "^;;;[ 	]+" "[ 	]+ends here[ 	]*$\\|^;;;[ 	]+ End of file[ 	]+" t "Can't find the footer line" lm-copyright-mark lm-crack-copyright "Can't find a valid copyright notice" string-match "Free Software Foundation" "Copyright holder is not the Free Software Foundation" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] set-syntax-table message "%s"] 16 (#$ . 18275) (byte-code "\300\211\301E\207" [nil t] 3)])
#@292 Generate a synopsis listing for the buffer or the given FILE if given.
If FILE is a directory, recurse on its files and generate a report in
a temporary buffer.  If SHOWALL is non-nil, also generate a line for files
which do not include a recognizable synopsis.

(fn &optional FILE SHOWALL)
(defalias 'lm-synopsis #[512 "\203i�\306!\203i�r\307\310!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!\210+\211 \211q\210\317\312\320#\211\205a�\211@\321\322\"!\211\204I�\203Y�\323\261\210\324!\206V�\325\326#\210\210A\266\202\2024�\262\327!\210)\207\212\205r�\330!?\203z�\331!\210\332\333!\203\210�\334\335\336 \"\202\212�\336 \203\222�\337p!\210\262)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-directory-p get-buffer-create "*Synopsis*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook directory-files ".*\\.el\\'" lm-synopsis expand-file-name ":" lm-insert-at-column "NA" "\n" internal-temp-output-buffer-show get-file-buffer find-file called-interactively-p interactive message "%s" lm-summary kill-buffer standard-output lm-comment-column] 12 (#$ . 21245) (byte-code "\300\301!C\207" [read-file-name "Synopsis for (file or dir): "] 2)])
#@145 Report a bug in the package currently being visited to its maintainer.
Prompts for bug subject TOPIC.  Leaves you in a mail buffer.

(fn TOPIC)
(defalias 'lm-report-bug #[257 "\301\302!\210\303 \304 \305 \306\203�@\307A\310R\202�\"\210db\210\311\261\210\211\203.�\312\261\210\313\314!\210\315\316\317\320!\"\207" [report-emacs-bug-address require emacsbug lm-get-package-name lm-maintainer lm-version compose-mail " <" ">" "\nIn " " version " newline 2 message "%s" substitute-command-keys "Type \\[mail-send] to send bug report."] 9 (#$ . 22531) "sBug Subject: "])
(provide 'lisp-mnt)

${this.title}

Code Editor : lisp-mnt.elc