HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 1755)])
#@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 (#$ . 2085)])
#@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\303eb\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 (#$ . 2355)])
(defalias 'lm-section-mark 'lm-section-start)
#@380 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.
(defalias 'lm-section-end #[(header) "\306\307!\210\310!\211\205W\212	b\210\311 \312\313\314\315!\210\316\317
\320\"\313\312#\211\2034\212\314 \210\311 )\fV\204\n\203J\314\321!\210\322\323!\204F\314\315!\210`\202Kd	b\210\324\325!\204N`^,)\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 0 looking-at "\f" forward-comment 1] 5 (#$ . 2877)])
#@56 Return the buffer location of the `Code' start marker.
(defalias 'lm-code-start #[nil "\300\301!\207" [lm-section-start "Code"] 2 (#$ . 3764)])
(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 (#$ . 4054)])
(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 (#$ . 4379)])
(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 (#$ . 4616)])
(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\302eb\210\303	\304\302#\205`*\207" [case-fold-search lm-copyright-prefix t re-search-forward nil] 4 (#$ . 4926)])
(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 (#$ . 5211)])
#@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\302!\211\203$	C\303y\210\304\305!\203$\306\307!	B\303y\210\202	\237*\207" [header res lm-header 1 looking-at "^;+\\(	\\|[	 ]\\{2,\\}\\)\\(.+\\)" match-string-no-properties 2] 3 (#$ . 5571)])
#@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\310D\311\nBBB\312\313\314\315\316\317\nBBFDFE)\207" [filesym file body 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] 12 (#$ . 5959)]))
(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)
#@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\302\306\307!r\nq\210\310\216\311	!\210\312 \210\212\313eb\210\314\f\315\313#\205&`*b\210\315\211`\316 \"#$\212\317\320!\210\321\322!%\317 \210\323%!\203Y\323\f!\204Y\316 \317\320!\210\202B*p&\306\307!'r'q\210\324\216\325&\"
#\210eb\210\314\326\315\313#\203\203\327\330!\210\202teb\210\314\331\315\313#\203\225\327\332!\210\202\206eb\210\314\333\315\313#\203\253\321\322!#B#\202\230\323\334!\203\266\321\335!$,$#\237.B\202
\212\214~\210eb\210\336 p()\337\216\340*!\210\212\313eb\210\314\f\315\313#\205\346`*b\210\315\211`\316 \"#$\212\317\320!\210\321\322!%\317 \210\323%!\203
\323\f!\204
\316 \317\320!\210\202
*p&\306\307!+r+q\210\341\216\325&\"
#\210eb\210\314\326\315\313#\203C
\327\330!\210\2024
eb\210\314\331\315\313#\203U
\327\332!\210\202F
eb\210\314\333\315\313#\203k
\321\322!#B#\202X
\323\334!\203v
\321\335!$,$#\237.	B)\207" [file #1=#:file #2=#:temp-buffer case-fold-search lm-copyright-prefix end generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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 #[nil "\301!\205	\302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] insert-buffer-substring "^;+[ 	]+" replace-match "" " *\n" " " "\\([0-9]+\\),? +" ".*$" 0 syntax-table #[nil "rq\210\302	!)\207" [#4=#:buffer #5=#:table set-syntax-table] 2] set-syntax-table #[nil "\301!\205	\302!\207" [#6=#:temp-buffer buffer-name kill-buffer] 2] start years holder str buff #3# #4# #5# emacs-lisp-mode-syntax-table #6#] 5 (#$ . 6572)])
#@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)+\202\200\212\214~\210eb\210\322 p\323\216\324!\210eb\210\313!\205\314\225b\210\313\315!\205\316\317!\320\321\f\"\203}\f\314\211\224O\202~\f)-)\207" [file #1=#:file #2=#:temp-buffer lm-header-prefix summary #3=#:buffer generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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 #[nil "rq\210\302	!)\207" [#3# #4=#:table set-syntax-table] 2] set-syntax-table #4# emacs-lisp-mode-syntax-table] 4 (#$ . 8438)])
#@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-\310B\207\310B\207" [x string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" match-string 1 2 "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" "\\S-+@\\S-+" nil] 4 (#$ . 9330)])
#@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\",\202@\212\214~\210eb\210\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*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] insert-file-contents emacs-lisp-mode lm-header-multiline "author" mapcar lm-crack-address syntax-table #[nil "rq\210\302	!)\207" [#3# #4# set-syntax-table] 2] set-syntax-table emacs-lisp-mode-syntax-table] 4 (#$ . 9763)])
#@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 @,\202R\212\214~\210eb\210\317 p\320\216\321!\210\313\314!\211\203M\315!\202P\316 @.)\207" [file #1=#:file #2=#:temp-buffer maint #3=#:buffer #4=#:table generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] insert-file-contents emacs-lisp-mode lm-header "maintainer" lm-crack-address lm-authors syntax-table #[nil "rq\210\302	!)\207" [#3# #4# set-syntax-table] 2] set-syntax-table emacs-lisp-mode-syntax-table] 3 (#$ . 10519)])
#@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!+\2024\212\214~\210eb\210\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*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] insert-file-contents emacs-lisp-mode lm-header "created" syntax-table #[nil "rq\210\302	!)\207" [#3# #4# set-syntax-table] 2] set-syntax-table] 3 (#$ . 11261)])
#@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\223\212\214~\210eb\210\330 p\331\216\332!\210eb\210\313\314\315 \316#\205\222\317\320!\317\321!\317\322!\203\207\323\324\f
$\202\221\323\325
\326\f!\3278$+-)\207" [file #1=#:file #2=#:temp-buffer yyyy mm dd generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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 #[nil "rq\210\302	!)\207" [#3=#:buffer #4=#:table set-syntax-table] 2] set-syntax-table iso-date #3# #4# emacs-lisp-mode-syntax-table] 6 (#$ . 11870)])
#@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\203^\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!\206Z\315 eb\210\316\317\320#\2031\321\322!\202Y\316\323\320#\203?\321\322!\202Y\316\324\f\203M\325\326\f!!\202N\327\330Q\320#\205Y\321\322!)+\202\266\212\214~\210eb\210\331 p\332\216\333!\210\313\314!\206\265\315 eb\210\316\317\320#\203\214\321\322!\202\264\316\323\320#\203\232\321\322!\202\264\316\324\f\203\250\325\326\f!!\202\251\327\330Q\320#\205\264\321\322!)-)\207" [file #1=#:file #2=#:temp-buffer header-max buffer-file-name #3=#:buffer generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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 "[^	\n]+" "	\\([012345679.]*\\)" syntax-table #[nil "rq\210\302	!)\207" [#3# #4=#:table set-syntax-table] 2] set-syntax-table #4# emacs-lisp-mode-syntax-table] 6 (#$ . 13005)])
#@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#,\202J\212\214~\210eb\210\320 p\321\216\322!\210\313\314!\211\205H\315\316\317#.)\207" [file #1=#:file #2=#:temp-buffer keywords #3=#:buffer #4=#:table generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] insert-file-contents emacs-lisp-mode lm-header-multiline "keywords" mapconcat downcase " " syntax-table #[nil "rq\210\302	!)\207" [#3# #4# set-syntax-table] 2] set-syntax-table emacs-lisp-mode-syntax-table] 5 (#$ . 14208)])
#@45 Return list of keywords given in file FILE.
(defalias 'lm-keywords-list #[(&optional file) "\303!\211\205'\304	\305\306\307#)\266\203\203!\310	\311\306\312$\202'\310	\313\306\312$)\207" [file keywords inhibit-changing-match-data lm-keywords "," nil t string-match split-string ",[ 	\n]*" "[ ]+" "[ 	\n]+"] 8 (#$ . 15037)])
#@61 Return non-nil if any keywords in FILE are known to finder.
(defalias 'lm-keywords-finder-p #[(&optional file) "\303\304!\210\305!\3062(	\203&\307\310	@!\n\"\203\311\306\312\"\210	A\211\204\3130)\207" [file keys finder-known-keywords require finder lm-keywords-list keyword-found assoc intern throw t nil] 4 (#$ . 15375)])
#@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!+\2024\212\214~\210eb\210\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*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] insert-file-contents emacs-lisp-mode lm-header "adapted-by" syntax-table #[nil "rq\210\302	!)\207" [#3# #4# set-syntax-table] 2] set-syntax-table] 3 (#$ . 15714)])
#@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!\",\202M\212\214~\210eb\210\316 p\317\216\320!\210\313!\211\205K\314\f\315!\".)\207" [file #1=#:file #2=#:temp-buffer lm-commentary-header start #3=#:buffer generate-new-buffer " *temp*" #[nil "\301!\205	\302!\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 #[nil "rq\210\302	!)\207" [#3# #4=#:table set-syntax-table] 2] set-syntax-table #4# emacs-lisp-mode-syntax-table] 5 (#$ . 16398)])
#@69 Return the homepage in file FILE, or current buffer if FILE is nil.
(defalias 'lm-homepage #[(&optional file) "\211\203\306\307!r\nq\210\310\216\311	!\210\312 \210\313\314!+\2024\212\214~\210eb\210\315 p\316\216\317
!\210\313\314!-)\211\203K\320\321\"\203K\322\323O\202M)\207" [file #1=#:file #2=#:temp-buffer #3=#:buffer #4=#:table emacs-lisp-mode-syntax-table generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] insert-file-contents emacs-lisp-mode lm-header "\\(?:x-\\)?\\(?:homepage\\|url\\)" syntax-table #[nil "rq\210\302	!)\207" [#3# #4# set-syntax-table] 2] set-syntax-table string-match "^<.+>$" 1 -1 page] 4 (#$ . 17320)])
#@41 Insert, at column COL, list of STRINGS.
(defalias 'lm-insert-at-column #[(col &rest strings) "iV\203	\302c\210\303\304\"\210\305\306	\"\207" [col strings "\n" move-to-column t apply insert] 3 (#$ . 18021)])
#@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\325
\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\356Aeb\210\360B\307\356#\205\377`*\203
\361 \204\f
\362\202
C\204
\363\364\361 @\"\204
\365\202
	+\202\324
\212\214~\210eb\210\366 pDE\367\216\370F!\210\330 \211\204D
\331\202\322
\332 \204M
\333\202\322
\334 \204V
\335\202\322
\336 \204_
\337\202\322
\340 \204h
\341\202\322
\342 \204q
\343\202\322
\344 \204z
\345\202\322
\346 \204\203
\347\202\322
\350 \204\214
\351\202\322
db\210\352\353\n\354\355\n\260\307\356#\204\241
\357\202\322
\212\356Aeb\210\360B\307\356#\205\262
`*\203\273
\361 \204\277
\362\202\322
C\204\321
\363\364\361 @\"\204\321
\365\202\322
	-)\203\336
\371\372	\"\210	*\207" [verbose ret name file #1=#:temp-buffer f "Ok" nil file-directory-p generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] directory-files "\\.el\\'" file-regular-p lm-verify ":" lm-insert-at-column "\n" "OK\n" buffer-string #[nil "\301!\205	\302!\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 #[nil "rq\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 (#$ . 18238) (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 (#$ . 21349) (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 (#$ . 22691) "sBug Subject: "])
(provide 'lisp-mnt)