Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
emacs-lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
advice.elc
58.25
KB
-rw-r--r--
2023-06-07 04:04
authors.elc
30.49
KB
-rw-r--r--
2023-06-07 04:04
autoload.elc
21.31
KB
-rw-r--r--
2023-06-07 03:59
avl-tree.elc
27.02
KB
-rw-r--r--
2023-06-07 04:04
backquote.elc
4.4
KB
-rw-r--r--
2023-06-07 04:18
benchmark.elc
3.18
KB
-rw-r--r--
2023-06-07 04:04
bindat.elc
10.69
KB
-rw-r--r--
2023-06-07 04:04
byte-opt.elc
35.7
KB
-rw-r--r--
2023-06-07 03:59
byte-run.elc
12.35
KB
-rw-r--r--
2023-06-07 04:18
bytecomp.elc
136.26
KB
-rw-r--r--
2023-06-07 03:59
cconv.elc
15.61
KB
-rw-r--r--
2023-06-07 03:59
chart.elc
22.14
KB
-rw-r--r--
2023-06-07 04:04
check-declare.elc
8.87
KB
-rw-r--r--
2023-06-07 04:04
checkdoc.elc
67.42
KB
-rw-r--r--
2023-06-07 04:04
cl-extra.elc
20.01
KB
-rw-r--r--
2023-06-07 04:04
cl-indent.elc
16.34
KB
-rw-r--r--
2023-06-07 04:04
cl-lib.elc
34.86
KB
-rw-r--r--
2023-06-07 04:04
cl-loaddefs.el
39.75
KB
-rw-r--r--
2013-01-01 15:37
cl-macs.elc
71.79
KB
-rw-r--r--
2023-06-07 04:04
cl-seq.elc
40.03
KB
-rw-r--r--
2023-06-07 04:04
cl.elc
16
KB
-rw-r--r--
2023-06-07 04:04
copyright.elc
10.29
KB
-rw-r--r--
2023-06-07 04:04
crm.elc
7.76
KB
-rw-r--r--
2023-06-07 04:04
debug.elc
26.92
KB
-rw-r--r--
2023-06-07 04:04
derived.elc
11.27
KB
-rw-r--r--
2023-06-07 04:04
disass.elc
5.48
KB
-rw-r--r--
2023-06-07 04:04
easy-mmode.elc
16.81
KB
-rw-r--r--
2023-06-07 04:04
easymenu.elc
20.03
KB
-rw-r--r--
2023-06-07 04:04
edebug.elc
101.25
KB
-rw-r--r--
2023-06-07 04:04
eieio-base.elc
13.18
KB
-rw-r--r--
2023-06-07 04:04
eieio-custom.elc
14.55
KB
-rw-r--r--
2023-06-07 04:04
eieio-datadebug.elc
3.9
KB
-rw-r--r--
2023-06-07 04:04
eieio-opt.elc
20.79
KB
-rw-r--r--
2023-06-07 04:04
eieio-speedbar.elc
12.55
KB
-rw-r--r--
2023-06-07 04:04
eieio.elc
89.24
KB
-rw-r--r--
2023-06-07 04:04
eldoc.elc
15.33
KB
-rw-r--r--
2023-06-07 04:04
elint.elc
31.22
KB
-rw-r--r--
2023-06-07 04:04
elp.elc
12.43
KB
-rw-r--r--
2023-06-07 04:04
ert-x.elc
9.78
KB
-rw-r--r--
2023-06-07 04:04
ert.elc
169.71
KB
-rw-r--r--
2023-06-07 04:04
ewoc.elc
26.49
KB
-rw-r--r--
2023-06-07 04:04
find-func.elc
17.4
KB
-rw-r--r--
2023-06-07 04:04
find-gc.elc
3.54
KB
-rw-r--r--
2023-06-07 04:04
float-sup.elc
1.36
KB
-rw-r--r--
2023-06-07 04:19
generic.elc
6.68
KB
-rw-r--r--
2023-06-07 04:04
gulp.elc
4.69
KB
-rw-r--r--
2023-06-07 04:04
gv.elc
17.81
KB
-rw-r--r--
2023-06-07 04:04
helper.elc
4.03
KB
-rw-r--r--
2023-06-07 04:04
lisp-mnt.elc
22.41
KB
-rw-r--r--
2023-06-07 04:04
lisp-mode.elc
44.27
KB
-rw-r--r--
2023-06-07 04:19
lisp.elc
18.56
KB
-rw-r--r--
2023-06-07 04:19
macroexp.elc
12.84
KB
-rw-r--r--
2023-06-07 04:18
map-ynp.elc
6.42
KB
-rw-r--r--
2023-06-07 04:18
package-x.elc
8.32
KB
-rw-r--r--
2023-06-07 04:04
package.elc
54.49
KB
-rw-r--r--
2023-06-07 04:04
pcase.elc
15.98
KB
-rw-r--r--
2023-06-07 04:04
pp.elc
5.56
KB
-rw-r--r--
2023-06-07 04:04
re-builder.elc
22.81
KB
-rw-r--r--
2023-06-07 04:04
regexp-opt.elc
4.87
KB
-rw-r--r--
2023-06-07 04:19
regi.elc
6.09
KB
-rw-r--r--
2023-06-07 04:04
ring.elc
6.58
KB
-rw-r--r--
2023-06-07 04:04
rx.elc
27.41
KB
-rw-r--r--
2023-06-07 04:04
shadow.elc
9.75
KB
-rw-r--r--
2023-06-07 04:04
smie.elc
35.4
KB
-rw-r--r--
2023-06-07 04:04
syntax.elc
13.69
KB
-rw-r--r--
2023-06-07 04:19
tabulated-list.elc
19.12
KB
-rw-r--r--
2023-06-07 04:19
tcover-ses.elc
15
KB
-rw-r--r--
2023-06-07 04:04
tcover-unsafep.elc
4.02
KB
-rw-r--r--
2023-06-07 04:04
testcover.elc
13.4
KB
-rw-r--r--
2023-06-07 04:04
timer.elc
22.94
KB
-rw-r--r--
2023-06-07 04:19
tq.elc
3.89
KB
-rw-r--r--
2023-06-07 04:04
trace.elc
5.24
KB
-rw-r--r--
2023-06-07 04:04
unsafep.elc
4.92
KB
-rw-r--r--
2023-06-07 04:04
warnings.elc
9.53
KB
-rw-r--r--
2023-06-07 04:04
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:04:53 2023 ;;; 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 (#$ . 1905)]) #@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 (#$ . 2235)]) #@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 (#$ . 2505)]) (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 (#$ . 3027)]) #@56 Return the buffer location of the `Code' start marker. (defalias 'lm-code-start #[nil "\300\301!\207" [lm-section-start "Code"] 2 (#$ . 3877)]) (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 (#$ . 4167)]) (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 (#$ . 4492)]) (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 (#$ . 4729)]) (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 (#$ . 5039)]) (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 (#$ . 5324)]) #@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 (#$ . 5684)]) #@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\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 (#$ . 6174)])) (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\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\202q\212\337 p ) *\340\216\341+!\210\212\313eb\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 "rq\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 (#$ . 6715)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4=#:table set-syntax-table] 2)) set-syntax-table #4# emacs-lisp-mode-syntax-table] 4 (#$ . 8617)]) #@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 (#$ . 9522)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 4 (#$ . 9955)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 3 (#$ . 10726)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table] 3 (#$ . 11483)]) #@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 "rq\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 (#$ . 12108)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 6 (#$ . 13259)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table emacs-lisp-mode-syntax-table] 5 (#$ . 14428)]) #@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 (#$ . 15272)]) #@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\"\210A\211\204 \307\207" [keys finder-known-keywords assoc intern throw keyword-found t nil] 4)] 2 (#$ . 15612)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4# set-syntax-table] 2)) set-syntax-table] 3 (#$ . 15996)]) #@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 "rq\210\302 !\210)\302\207" [#3# #4=#:table set-syntax-table] 2)) set-syntax-table #4# emacs-lisp-mode-syntax-table] 5 (#$ . 16696)]) #@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 (#$ . 17633)]) #@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\360B\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\370F!\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\360B\307\356#\205\254`*\203\265\361 \204\271\362\202\314C\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 "rq\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 (#$ . 17850) (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 (#$ . 20990) (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 (#$ . 22332) "sBug Subject: "]) (provide 'lisp-mnt)