;;; compiled by eric@mole.gnu.ai.mit.edu on Tue Apr 13 23:46:21 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/lisp-mnt.el ;;; emacs version 19.5.1. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!ˆÀÂ!ˆÃÄMˆÅÆMˆÇÈMˆÉÊMˆËÌMˆÍÎMˆÏÐMˆÑÒMˆÓÔMˆÕÖMˆ×ØMˆÙÚMˆÛÜMˆÝÞMˆßàMˆá\"À‡" [require picture emacsbug lm-section-mark #[(hd &optional after) "ŠÀebˆÂà ÅQÆÀ#…ÇÈ!ˆ ƒÇÊ!ˆ`*‡" [t case-fold-search re-search-forward "^;;; " hd ":$" nil forward-line 0 after 1] 4] lm-code-mark #[nil "ÀÁ!‡" [lm-section-mark "Code"] 2] lm-header #[(hd) "ebˆÀÂà ÅQÆ À#…ÇÈÉ!ÊÉ!\")‡" [t case-fold-search re-search-forward "^;; " hd ": \\(.*\\)" lm-code-mark buffer-substring match-beginning 1 match-end] 4] lm-header-multiline #[(hd) "ŠebˆŠÀ !)‰ƒ-ÃÄ!ˆ\nCÅÆ!ƒ-ÇÈÄ!ÉÄ!\"\nBÃÄ!ˆ‚\n*‡" [lm-header hd res forward-line 1 looking-at "^;; \\(.*\\)" buffer-substring match-beginning match-end] 5] lm-summary #[(&optional file) "Šƒ Á!ˆebˆÂÃ!…ÄÅÆ!ÇÆ!\"ƒ\"Èp!ˆ)‡" [file find-file looking-at "^;;; [^ ]+ --- \\(.*\\)" buffer-substring match-beginning 1 match-end kill-buffer] 4] lm-crack-address #[(x) "ÀÁ\n\"ƒ\nÃÄ!ÅÄ!O\nÃÆ!ÅÆ!OB‡ÀÇ\n\"ƒ2\nÃÆ!ÅÆ!O\nÃÄ!ÅÄ!OB‡ÀÈ\n\"ƒ=É\nB‡\nÉB‡" [string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" x match-beginning 1 match-end 2 "\\(\\S-+@\\S-+\\) [(<]\\(.*\\)[>)]" "\\S-+@\\S-+" nil] 5] lm-authors #[(&optional file) "Šƒ Á!ˆÂÃ!ÅÆ \"ƒÇp!ˆ*‡" [file find-file lm-header-multiline "author" authorlist mapcar lm-crack-address kill-buffer] 3] lm-maintainer #[(&optional file) "Šƒ Á!ˆÂÃ!‰ƒÅ !‚Æ @)ƒ#Çp!ˆ)‡" [file find-file lm-header "maintainer" maint lm-crack-address lm-authors kill-buffer] 4] lm-creation-date #[(&optional file) "Šƒ Á!ˆÂÃ!ƒÄp!ˆ)‡" [file find-file lm-header "created" kill-buffer] 3] lm-last-modified-date #[(&optional file) "Šƒ Á!ˆebˆÂÃÄ Å#…4ÆÇÈÉÊ!ËÊ!\"ÌÈÉÍ!ËÍ!\"!Î8ÈÉÏ!ËÏ!\"$ƒ<Ðp!ˆ)‡" [file find-file re-search-forward "\\$Id: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) " lm-code-mark t format "%s %s %s" buffer-substring match-beginning 3 match-end string-to-int 2 ("" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") 1 kill-buffer] 8] lm-version #[(&optional file) "Šƒ Á!ˆÂÃ!†GÄ ebˆÆÇ È#ƒ(ÉÊË!ÌË!\"‚FÆÍÎ!ÍÏÐ !!ÑQ È#ƒEÉÊË!ÌË!\"‚FÒ)ƒOÓp!ˆ)‡" [file find-file lm-header "version" lm-code-mark header-max re-search-forward "\\$Id: [^ ]+ \\([^ ]+\\) " t buffer-substring match-beginning 1 match-end regexp-quote "@(#)" file-name-nondirectory buffer-file-name " \\([012345679.]*\\)" nil kill-buffer] 5] lm-keywords #[(&optional file) "Šƒ Á!ˆÂÃ!‰…Å !)ƒÆp!ˆ)‡" [file find-file lm-header "keywords" keywords downcase kill-buffer] 4] lm-adapted-by #[(&optional file) "Šƒ Á!ˆÂÃ!ƒÄp!ˆ)‡" [file find-file lm-header "adapted-by" kill-buffer] 3] lm-commentary #[(&optional file) "Šƒ Á!ˆÂÃÄ\"ÂÅ!ÂÆ!‰ …1ƒ+Ê \"‚1Ê \"+ƒ:Ëp!ˆ)‡" [file find-file lm-section-mark "Commentary" t "Change Log" "Code" code change-log commentary buffer-substring kill-buffer] 5] insert-at-column #[(col &rest pieces) "iVƒ ÁcˆÂ!ˆÃÄ \"‡" [col "\n" move-to-column-force apply insert pieces] 3] 16 lm-comment-column] 2) (fset 'lm-verify #[(&optional file showok) "ƒÁ!ƒÂÃÄ!!ˆÅ ˆÆÇÈ!\"‡Šƒ#É!ˆÊ „,Ë‚FÌ „5Í‚FdbˆÎÏ!ˆÐÑÒQ!…FÓƒNÔp!ˆ)‡" [file file-directory-p switch-to-buffer get-buffer-create "*lm-verify*" erase-buffer mapcar #[(f) "ÀÁ\n\"…/Ã\n!‰ƒ\ncˆÅcˆÆ È#‚. ….\ncˆÅcˆÆÊ\")‡" [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" forward-line -1 looking-at ";;; " "ends here" "Can't find a footer line" kill-buffer] 4 "\ 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."]) (fset 'lm-synopsis #[(&optional file showall) "ƒÁ!ƒÂÃÄ!!ˆÅ ˆÆÇÈ!\"‡Šƒ#É!ˆÊ ƒ-Ëp!ˆ)‡" [file file-directory-p switch-to-buffer get-buffer-create "*lm-verify*" erase-buffer mapcar #[(f) "ÀÁ\n\"…/Ã\n!‰ƒ\ncˆÅcˆÆ È#‚. ….\ncˆÅcˆÆÊ\")‡" [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 "\ 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."]) (fset 'lm-report-bug #[(topic) "À Á  ÆÇ † #ˆdbˆÊË …\"Ì PÍ$ˆÎÏÐ!!+‡" [buffer-name lm-maintainer lm-version version addr package mail nil bug-gnu-emacs topic insert "\nIn " " version " "\n\n" message substitute-command-keys "Type \\[mail-send] to send bug report."] 5 "\ Report a bug in the package currently being visited to its maintainer. Prompts for bug subject. Leaves you in a mail buffer." "sBug Subject: "]) (provide (quote lisp-mnt))