;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Thu Jun 15 18:26:36 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/lisp-mnt.el ;;; emacs version 19.28.94.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`lisp-mnt.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÀÂ!‡" [require picture emacsbug] 2) (defalias 'lm-section-mark #[(hd &optional after) "ŠÀebˆÂÃ\fÅQÆÀ#…ÇyˆƒÉyˆ`*‡" [t case-fold-search re-search-forward "^;;;;* " hd ":[ ]*$" nil 0 after 1] 4]) (defalias 'lm-code-mark #[nil "ÀÁ!‡" [lm-section-mark "Code"] 2]) (defalias 'lm-header #[(hd) "ebˆÀÂÃ\fÅQÆ À#…ǔǕ{)‡" [t case-fold-search re-search-forward "^;; " hd ": \\(.*\\)" lm-code-mark 1] 4]) (defalias 'lm-header-multiline #[(hd) "ŠebˆŠÀ !)‰ƒ(Ãyˆ\nCÄÅ!ƒ(ÔÕ{\nBÃyˆ‚\n*‡" [lm-header hd res 1 looking-at "^;; \\(.*\\)"] 3]) (defalias 'lm-summary #[(&optional file) "Šƒ Á!ˆebˆÂÃ!…Ĕĕ{ƒÅp!ˆ)‡" [file find-file looking-at "^;;; [^ ]+ --- \\(.*\\)" 1 kill-buffer] 3]) (defalias 'lm-crack-address #[(x) "ÀÁ\n\"ƒ\nÔÕO\nĔĕOB‡ÀÅ\n\"ƒ*\nĔĕO\nÔÕOB‡ÀÆ\n\"ƒ5Ç\nB‡\nÇB‡" [string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" x 1 2 "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" "\\S-+@\\S-+" nil] 4]) (defalias 'lm-authors #[(&optional file) "Šƒ Á!ˆÂÃ!ÅÆ\f\"ƒÇp!ˆ*‡" [file find-file lm-header-multiline "author" authorlist mapcar lm-crack-address kill-buffer] 3]) (defalias 'lm-maintainer #[(&optional file) "Šƒ Á!ˆÂÃ!‰ƒÅ\f!‚Æ @)ƒ#Çp!ˆ)‡" [file find-file lm-header "maintainer" maint lm-crack-address lm-authors kill-buffer] 4]) (defalias 'lm-creation-date #[(&optional file) "Šƒ Á!ˆÂÃ!ƒÄp!ˆ)‡" [file find-file lm-header "created" kill-buffer] 3]) (defalias 'lm-last-modified-date #[(&optional file) "Šƒ Á!ˆebˆÂÃÄ Å#…+ÆÇȔȕ{Éʔʕ{!Ë8̔̕{$ƒ3Íp!ˆ)‡" [file find-file re-search-forward "\\$Id: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) " lm-code-mark t format "%s %s %s" 3 string-to-int 2 ("" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") 1 kill-buffer] 6]) (defalias 'lm-version #[(&optional file) "Šƒ Á!ˆÂÃ!†AÄ ebˆÆÇ È#ƒ%ɔɕ{‚@ÆÊË!ÊÌÍ !!ÎQ È#ƒ?ɔɕ{‚@Ï)ƒIÐp!ˆ)‡" [file find-file lm-header "version" lm-code-mark header-max re-search-forward "\\$Id: [^ ]+ \\([^ ]+\\) " t 1 regexp-quote "@(#)" file-name-nondirectory buffer-file-name " \\([012345679.]*\\)" nil kill-buffer] 5]) (defalias 'lm-keywords #[(&optional file) "Šƒ Á!ˆÂÃ!‰…\f—)ƒÅp!ˆ)‡" [file find-file lm-header "keywords" keywords kill-buffer] 4]) (defalias 'lm-adapted-by #[(&optional file) "Šƒ Á!ˆÂÃ!ƒÄp!ˆ)‡" [file find-file lm-header "adapted-by" kill-buffer] 3]) (defalias 'lm-commentary #[(&optional file) "Šƒ Á!ˆÂÃÄ\"ÂÅ!ÂÆ!‰ …/ƒ* {‚/ {+ƒ8Êp!ˆ)‡" [file find-file lm-section-mark "Commentary" t "Change Log" "Code" code change-log commentary kill-buffer] 5]) (defalias 'insert-at-column #[(col &rest pieces) "iVƒ ÁcˆÂ!ˆÃÄ \"‡" [col "\n" move-to-column-force apply insert pieces] 3]) (byte-code "ÀÁ\nBÀ‡" [16 lm-comment-column current-load-list] 2) #@163 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 into a temporary buffer. (defalias 'lm-verify #[(&optional file showok) "ƒÁ!ƒÂÃÄ!!ˆÅ ˆÆÇÈ!\"‡Šƒ#É!ˆÊ „,Ë‚EÌ „5Í‚EdbˆÎyˆÏÐÑQ!…EÒƒMÓp!ˆ)‡" [file file-directory-p switch-to-buffer get-buffer-create "*lm-verify*" erase-buffer mapcar #[(f) "ÀÁ\n\"…-Ã\n!‰ƒ\nűˆÆ\fÈ#‚, …,\nűˆÆÊ\")‡" [string-match ".*\\.el$" f lm-verify status ":" insert-at-column lm-comment-column "\n" showok "OK\n"] 5] directory-files find-file lm-summary "Can't find a package summary" lm-code-mark "Can't find a code section marker" -1 looking-at ";;; " "ends here" "Can't find a footer line" kill-buffer] 4 (#$ . 3239)]) #@260 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 into a temporary buffer. If SHOWALL is on, also generate a line for files which do not include a recognizable synopsis. (defalias 'lm-synopsis #[(&optional file showall) "ƒÁ!ƒÂÃÄ!!ˆÅ ˆÆÇÈ!\"‡Šƒ#É!ˆÊ ƒ-Ëp!ˆ)‡" [file file-directory-p switch-to-buffer get-buffer-create "*lm-verify*" erase-buffer mapcar #[(f) "ÀÁ\n\"…-Ã\n!‰ƒ\nűˆÆ\fÈ#‚, …,\nűˆÆÊ\")‡" [string-match ".*\\.el$" f lm-synopsis syn ":" insert-at-column lm-comment-column "\n" showall "NA\n"] 5] directory-files find-file lm-summary kill-buffer] 4 (#$ . 4003)]) #@127 Report a bug in the package currently being visited to its maintainer. Prompts for bug subject. Leaves you in a mail buffer. (defalias 'lm-report-bug #[(topic) "À Á  ÆÇ\fƒ\f@È\fAÉR‚\n #ˆdbˆÌ ƒ.Í P‚/ÎϱˆÐÑÒ!!+‡" [buffer-name lm-maintainer lm-version version addr package mail nil " <" ">" bug-gnu-emacs topic "\nIn " " version " "" "\n\n" message substitute-command-keys "Type \\[mail-send] to send bug report."] 6 (#$ . 4696) "sBug Subject: "]) (provide (quote lisp-mnt))