WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/lisp-mnt.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:36 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/lisp-mnt.el
;;; in Emacs version 24.3.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\314\315\306\301&\210\310\316\317\320\314\315\306\301&\210\310\321\322\323\314\324\306\301&\210\310\325\326\327\314\315\306\301&\210\310\330\331\332\314\315\306\301&\210\310\333\334\335\314\315\306\301&\207" [custom-declare-group lisp-mnt nil "Utility functions for Emacs Lisp maintainers." :prefix "lm-" :group maint custom-declare-variable lm-header-prefix "^;+[ 	]+\\(@(#)\\)?[ 	]*\\$?" "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 "^\\(;+[ 	]\\)+Copyright (C) " "Prefix that is ignored before the dates in a copyright.\nLeading comment characters and whitespace should be in regexp group 1." lm-comment-column 16 "Column used for placing formatted output." integer lm-any-header ".*" "Regexp which matches start of any section." lm-commentary-header "Commentary\\|Documentation" "Regexp which matches start of documentation section." lm-history-header "Change ?Log\\|History" "Regexp which matches the start of code log section."] 8)
#@122 Return regexp for matching HEADER.
If called with optional MODE and with value `section',
return section regexp instead.
(defalias 'lm-get-header-re #[(header &optional mode) "\303=\203\304	\305Q\207\n\306	\307R\207" [mode header lm-header-prefix section "^;;;;* \\(" "\\):[ 	]*$" "\\(" "\\)[ 	]*:[ 	]*"] 4 (#$ . 1909)])
#@51 Return package name by looking at the first line.
(defalias 'lm-get-package-name #[nil "\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 (#$ . 2239)])
#@222 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.
(defalias 'lm-section-start #[(header &optional after) "\212\303eb\210\304\305	\306\"\307\303#\205\310\n\205\311!*\207" [case-fold-search header after t re-search-forward lm-get-header-re section nil line-beginning-position 2] 4 (#$ . 2509)])
(defalias 'lm-section-mark 'lm-section-start)
#@415 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 end of the section is defined as the beginning of the next
section of the same level or lower.  The function
`lisp-outline-level' is used to compute the level of a section.
If no such section exists, return the end of the buffer.
(defalias 'lm-section-end #[(header) "\306\307!\210\310!\211\205?\212	b\210\311 \312\313\314\315!\210\316\317
\320\"\313\312#\211\2034\212\314 \210\311 )\fV\204\n\203=\321 \202>d,)\207" [header start next-section-found case-fold-search level 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 line-beginning-position] 5 (#$ . 3031)])
#@56 Return the buffer location of the `Code' start marker.
(defalias 'lm-code-start #[nil "\300\301!\207" [lm-section-start "Code"] 2 (#$ . 3881)])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put lm-code-start byte-optimizer byte-compile-inline-expand defalias lm-code-mark] 4)
#@62 Return the buffer location of the `Commentary' start marker.
(defalias 'lm-commentary-start #[nil "\301!\207" [lm-commentary-header lm-section-start] 2 (#$ . 4171)])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put lm-commentary-start byte-optimizer byte-compile-inline-expand defalias lm-commentary-mark] 4)
#@61 Return the buffer location of the `Commentary' section end.
(defalias 'lm-commentary-end #[nil "\301!\207" [lm-commentary-header lm-section-end] 2 (#$ . 4496)])
(put 'lm-commentary-end 'byte-optimizer 'byte-compile-inline-expand)
#@59 Return the buffer location of the `History' start marker.
(defalias 'lm-history-start #[nil "\301!\207" [lm-history-header lm-section-start] 2 (#$ . 4733)])
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put lm-history-start byte-optimizer byte-compile-inline-expand defalias lm-history-mark] 4)
#@53 Return the buffer location of the `Copyright' line.
(defalias 'lm-copyright-mark #[nil "\212\302eb\210\303	\304\302#\205`*\207" [case-fold-search lm-copyright-prefix t re-search-forward nil] 4 (#$ . 5043)])
(put 'lm-copyright-mark 'byte-optimizer 'byte-compile-inline-expand)
#@49 Return the contents of the header named HEADER.
(defalias 'lm-header #[(header) "eb\210\302\303\304	!\305 \302#\205+\306\212\307\310\224x\210`\310\224U)\203#\311\202$\312!\205+\313\310!)\207" [case-fold-search header t re-search-forward lm-get-header-re lm-code-mark looking-at "^$" 0 "[^\n]+" "[^$\n]+" match-string-no-properties] 4 (#$ . 5328)])
#@129 Return the contents of the header named HEADER, with continuation lines.
The returned value is a list of strings, one per line.
(defalias 'lm-header-multiline #[(header) "\212eb\210\303!\211\203@	C\304y\210\305\n\306P!\204(\305\307\310!!\204@\305\n!\203@\311\225b\203@\305\312!\203@\313\311!	B\304y\210\202	\237*\207" [header res lm-header-prefix lm-header 1 looking-at "[	 ]+" lm-get-header-re "\\sw\\(\\sw\\|\\s_\\)*" 0 ".+" match-string-no-properties] 4 (#$ . 5688)])
#@111 Execute BODY in a buffer containing the contents of FILE.
If FILE is nil, execute BODY in the current buffer.
(defalias 'lm-with-file '(macro . #[(file &rest body) "\303\304!\305	DC\306\307\310D\311\nBBB\312\313\314\nBBDFE)\207" [filesym file body make-symbol "file" let if with-temp-buffer insert-file-contents (emacs-lisp-mode) save-excursion with-syntax-table emacs-lisp-mode-syntax-table] 9 (#$ . 6178)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put lm-with-file lisp-indent-function 1 edebug-form-spec t] 4)
#@162 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")
(defalias 'lm-crack-copyright #[(&optional file) "\211\203\276\306\307!r\nq\210\310\216\311	!\210\312 \210\212\313eb\210\314\f\315\313#\205&`*b\210\315\211`\316 #$%\212\317\320!\210\321\322!\323P&\317 \210\324&!\203U\316 \317\320!\210\202D*p'\306\307!(r(q\210\325\216\326'#
#\210eb\210\314\327\315\313#\203\330\331!\210\202peb\210\314\332\315\313#\203\221\330\333!\210\202\202eb\210\314\334\315\313#\203\247\321\322!$B$\202\224\324\335!\203\262\321\336!%,%$\237.B\202q\212\337 p)*\340\216\341+!\210\212\313eb\210\314\f\315\313#\205\334`*b\210\315\211`\316 #$%\212\317\320!\210\321\322!\323P&\317 \210\324&!\203\316 \317\320!\210\202\372*p'\306\307!,r,q\210\342\216\326'#
#\210eb\210\314\327\315\313#\2035\330\331!\210\202&eb\210\314\332\315\313#\203G\330\333!\210\2028eb\210\314\334\315\313#\203]\321\322!$B$\202J\324\335!\203h\321\336!%,%$\237.B)\207" [file #1=#:file #2=#:temp-buffer case-fold-search lm-copyright-prefix end generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode t re-search-forward nil line-end-position beginning-of-line 2 match-string-no-properties 1 "[ 	]+" looking-at ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring "^;+[ 	]+" replace-match "" " *\n" " " "\\([0-9]+\\),? +" ".*$" 0 syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#4=#:buffer #5=#:table set-syntax-table] 2)) set-syntax-table ((byte-code "\301!\203\n\302!\210\301\207" [#6=#:temp-buffer buffer-name kill-buffer] 2)) start years holder str buff #3# #4# #5# emacs-lisp-mode-syntax-table #6#] 5 (#$ . 6719)])
#@77 Return the one-line summary of file FILE, or current buffer if FILE is nil.
(defalias 'lm-summary #[(&optional file) "\211\203C\306\307!r\nq\210\310\216\311	!\210\312 \210eb\210\313!\205?\314\225b\210\313\315!\205?\316\317!\320\321\f\"\203=\f\314\211\224O\202>\f)+\202z\212\322 p\323\216\324!\210eb\210\313!\205y\314\225b\210\313\315!\205y\316\317!\320\321\f\"\203w\f\314\211\224O\202x\f),)\207" [file #1=#:file #2=#:temp-buffer lm-header-prefix summary #3=#:buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode looking-at 0 "[^ ]+[ 	]+--+[ 	]+\\(.*\\)" match-string-no-properties 1 string-match "[ 	]*-\\*-.*-\\*-" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4=#:table set-syntax-table] 2)) set-syntax-table #4# emacs-lisp-mode-syntax-table] 4 (#$ . 8621)])
#@122 Split up an email address X into full name and real email address.
The value is a cons of the form (FULLNAME . ADDRESS).
(defalias 'lm-crack-address #[(x) "\301\302\"\203\303\304\"\303\305\"B\207\301\306\"\203\"\303\305\"\303\304\"B\207\301\307\"\203-\310B\207\310B\207" [x string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" match-string 1 2 "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" "\\S-+@\\S-+" nil] 4 (#$ . 9526)])
#@163 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.
(defalias 'lm-authors #[(&optional file) "\211\203#\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!\315\316\",\2029\212\317 p\320\216\321!\210\313\314!\315\316\"-)\207" [file #1=#:file #2=#:temp-buffer authorlist #3=#:buffer #4=#:table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode lm-header-multiline "author" mapcar lm-crack-address syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 4 (#$ . 9959)])
#@119 Return the maintainer of file FILE, or current buffer if FILE is nil.
The return value has the form (NAME . ADDRESS).
(defalias 'lm-maintainer #[(&optional file) "\211\203,\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!\211\203%\315!\202(\316 @,\202K\212\317 p\320\216\321!\210\313\314!\211\203G\315!\202J\316 @-)\207" [file #1=#:file #2=#:temp-buffer maint #3=#:buffer #4=#:table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode lm-header "maintainer" lm-crack-address lm-authors syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 3 (#$ . 10730)])
#@79 Return the created date given in file FILE, or current buffer if FILE is nil.
(defalias 'lm-creation-date #[(&optional file) "\211\203\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!+\202.\212\315 p\316\216\317
!\210\313\314!,)\207" [file #1=#:file #2=#:temp-buffer #3=#:buffer #4=#:table emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode lm-header "created" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table] 3 (#$ . 11487)])
#@137 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.
(defalias 'lm-last-modified-date #[(&optional file iso-date) "\211\203L\306\307!r\nq\210\310\216\311	!\210\312 \210eb\210\313\314\315 \316#\205H\317\320!\317\321!\317\322!\203=\323\324\f
$\202G\323\325
\326\f!\3278$++\202\215\212\330 p\331\216\332!\210eb\210\313\314\315 \316#\205\214\317\320!\317\321!\317\322!\203\201\323\324\f
$\202\213\323\325
\326\f!\3278$+,)\207" [file #1=#:file #2=#:temp-buffer yyyy mm dd generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode re-search-forward "\\$[I]d: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) " lm-code-mark t match-string 3 2 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 ((byte-code "rq\210\302	!\210)\302\207" [#3=#:buffer #4=#:table set-syntax-table] 2)) set-syntax-table iso-date #3# #4# emacs-lisp-mode-syntax-table] 6 (#$ . 12112)])
#@119 Return the version listed in file FILE, or current buffer if FILE is nil.
This can be found in an RCS or SCCS header.
(defalias 'lm-version #[(&optional file) "\211\203W\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!\206S\315 eb\210\316\317\320#\2031\321\322!\202R\316\323\320#\203?\321\322!\202R\316\324\325\326\327 !!\330Q\320#\205R\321\322!)+\202\241\212\331 p\332\216\333!\210\313\314!\206\240\315 eb\210\316\317\320#\203~\321\322!\202\237\316\323\320#\203\214\321\322!\202\237\316\324\325\326\327 !!\330Q\320#\205\237\321\322!),)\207" [file #1=#:file #2=#:temp-buffer header-max #3=#:buffer #4=#:table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# 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 buffer-file-name "	\\([012345679.]*\\)" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 6 (#$ . 13263)])
#@210 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.
(defalias 'lm-keywords #[(&optional file) "\211\203(\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!\211\205$\315\316\317#,\202C\212\320 p\321\216\322!\210\313\314!\211\205B\315\316\317#-)\207" [file #1=#:file #2=#:temp-buffer keywords #3=#:buffer #4=#:table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode lm-header-multiline "keywords" mapconcat downcase " " syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 5 (#$ . 14432)])
#@45 Return list of keywords given in file FILE.
(defalias 'lm-keywords-list #[(&optional file) "\306!\211\205&\307	\310\311\312\f\n#,\203!\313	\314\311#\202&\313	\315\311#)\207" [file keywords start string regexp inhibit-changing-match-data lm-keywords "," nil t string-match split-string ",[ 	\n]*" "[ 	\n]+"] 5 (#$ . 15276)])
#@61 Return non-nil if any keywords in FILE are known to finder.
(defalias 'lm-keywords-finder-p #[(&optional file) "\302\303!\210\304!\305\306\215)\207" [file keys require finder lm-keywords-list keyword-found (byte-code "\203\302\303@!	\"\203\304\305\306\"\210A\211\204\307\207" [keys finder-known-keywords assoc intern throw keyword-found t nil] 4)] 2 (#$ . 15616)])
#@154 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.
(defalias 'lm-adapted-by #[(&optional file) "\211\203\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!+\202.\212\315 p\316\216\317
!\210\313\314!,)\207" [file #1=#:file #2=#:temp-buffer #3=#:buffer #4=#:table emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode lm-header "adapted-by" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table] 3 (#$ . 16000)])
#@279 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.
(defalias 'lm-commentary #[(&optional file) "\211\203)\306\307!r\nq\210\310\216\311	!\210\312 \210\313!\211\205%\314\f\315!\",\202F\212\316 p\317\216\320!\210\313!\211\205E\314\f\315!\"-)\207" [file #1=#:file #2=#:temp-buffer lm-commentary-header start #3=#:buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) insert-file-contents emacs-lisp-mode lm-section-start buffer-substring-no-properties lm-section-end syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#3# #4=#:table set-syntax-table] 2)) set-syntax-table #4# emacs-lisp-mode-syntax-table] 5 (#$ . 16700)])
#@41 Insert, at column COL, list of STRINGS.
(defalias 'lm-insert-at-column #[(col &rest strings) "iV\203	\302c\210\303\304\"\210\305\306	\"\207" [col strings "\n" move-to-column t apply insert] 3 (#$ . 17637)])
#@410 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.
(defalias 'lm-verify #[(&optional file showok verbose non-fsf-ok) "\205\306\307\203k\310!\203k\311\312!r\fq\210\313\216\314\307\315#\307\211;\203b;@\316
!\203Y\317
!<
\320\261\210<\203M\321=<\322#\210\202X>\203X\321=\323\"\210);A\211;\204)\307\324 -\202\317\211?\203$\311\312!@r@q\210\325\216\326?!\210\327 \210\330 \211\204\221\331\202\332 \204\232\333\202\334 \204\243\335\202\336 \204\254\337\202\340 \204\265\341\202\342 \204\276\343\202\344 \204\307\345\202\346 \204\320\347\202\350 \204\331\351\202db\210\352\353\n\354\355\n\260\307\356#\204\356\357\202\212\356Aeb\210\360B\307\356#\205\377`*\203\361 \204\f\362\202C\204\363\364\361 @\"\204\365\202	+\202\316\212\366 pDE\367\216\370F!\210\330 \211\204>\331\202\314\332 \204G\333\202\314\334 \204P\335\202\314\336 \204Y\337\202\314\340 \204b\341\202\314\342 \204k\343\202\314\344 \204t\345\202\314\346 \204}\347\202\314\350 \204\206\351\202\314db\210\352\353\n\354\355\n\260\307\356#\204\233\357\202\314\212\356Aeb\210\360B\307\356#\205\254`*\203\265\361 \204\271\362\202\314C\204\313\363\364\361 @\"\204\313\365\202\314	,)\203\330\371\372	\"\210	*\207" [verbose ret name file #1=#:temp-buffer f "Ok" nil file-directory-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) directory-files "\\.el\\'" file-regular-p lm-verify ":" lm-insert-at-column "\n" "OK\n" buffer-string ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) 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" re-search-forward 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 ((byte-code "rq\210\302	!\210)\302\207" [#3=#:buffer #4=#:table set-syntax-table] 2)) set-syntax-table message "%s" --dolist-tail-- status lm-comment-column showok #5=#:file #2# case-fold-search lm-copyright-prefix non-fsf-ok #3# #4# emacs-lisp-mode-syntax-table] 7 (#$ . 17854) (list nil nil t)])
#@263 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.
(defalias 'lm-synopsis #[(&optional file showall) "\203~\306!\203~	r\307\310!q\210p\311 \210\n\312\211\313\211\313 !\314 \210\315\316!\210+\211\"\211#q\210\317\312\320#\312$\211%\205v%@$\321\322$\"!\211&\204Y'\203k$\323\261\210\324(&\206h\325\326#\210)%A\211%\204B\312*\327\"!\210+\207\212\205\207\330!?)\203\221\331!\210\332\333!\203\237\334\335\336 \"\202\241\336 )\203\252\337p!\210*\207" [file default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output f --dolist-tail-- syn showall lm-comment-column must-kill] 5 (#$ . 20994) (list (read-file-name "Synopsis for (file or dir): "))])
#@133 Report a bug in the package currently being visited to its maintainer.
Prompts for bug subject TOPIC.  Leaves you in a mail buffer.
(defalias 'lm-report-bug #[(topic) "\305\306!\210\307 \310 \311 \312	\203	@\313	A\314R\202\f\"\210db\210\315\n\261\210\2031\316\261\210\317\320!\210\321\322\323\324!\"+\207" [version addr package report-emacs-bug-address topic 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."] 5 (#$ . 22336) "sBug Subject: "])
(provide 'lisp-mnt)
F1l3 Manager
