%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/lisp-mnt.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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`\202Jdb\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\202ieb\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!\203ir\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)

Zerion Mini Shell 1.0