ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/lisp-mnt.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 1757)])
#@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 (#$ . 2087)])
#@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 (#$ . 2357)])
(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`\202K d 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 (#$ . 2879)])
#@56 Return the buffer location of the `Code' start marker.
(defalias 'lm-code-start #[nil "\300\301!\207" [lm-section-start "Code"] 2 (#$ . 3766)])
(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 (#$ . 4056)])
(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 (#$ . 4381)])
(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 (#$ . 4618)])
(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 (#$ . 4928)])
(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 (#$ . 5213)])
#@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 (#$ . 5573)])
#@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 (#$ . 5961)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put lm-with-file lisp-indent-function 1 put 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\313eb\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\202p eb\210\314\332\315\313#\203\221 \330\333!\210\202\202 eb\210\314\334\315\313#\203\247 \321\322!$B$\202\224 \324\335!\203\262 \321\336!%,%$\237.B\202w\212\214~\210eb\210\337 p ) *\340\216\341+!\210\212\313eb\210\314\f\315\313#\205\342 `*b\210\315\211`\316 # $ %\212\317\320!\210\321\322!\323P &\317 \210\324&!\203\316 \317\320!\210\202 *p '\306\307! ,r,q\210\342\216\326'#
#\210eb\210\314\327\315\313#\203;\330\331!\210\202,eb\210\314\332\315\313#\203M\330\333!\210\202>eb\210\314\334\315\313#\203c\321\322!$B$\202P\324\335!\203n\321\336!%,%$\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 (#$ . 6578)])
#@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 (#$ . 8429)])
#@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 (#$ . 9321)])
#@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 (#$ . 9754)])
#@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 (#$ . 10510)])
#@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 (#$ . 11252)])
#@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 (#$ . 11861)])
#@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 (#$ . 12996)])
#@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 (#$ . 14199)])
#@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 (#$ . 15028)])
#@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 (#$ . 15366)])
#@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 (#$ . 15705)])
#@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 (#$ . 16389)])
#@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 (#$ . 17311)])
#@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 (#$ . 18012)])
#@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\356 Aeb\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 p D E\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\322db\210\352\353\n\354\355\n\260\307\356#\204\241\357\202\322\212\356 Aeb\210\360B\307\356#\205\262`*\203\273\361 \204\277\362\202\322C\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 (#$ . 18229) (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 (#$ . 21340) (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 (#$ . 22682) "sBug Subject: "])
(provide 'lisp-mnt)
Kontol Shell Bypass