mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

(lm-commentary-region): Gone.

Browse source 
(lm-commentary): New function.
This commit is contained in:
Eric S. Raymond 1993-04-14 03:34:42 +00:00
parent 101dad14a5
commit 64e07c7ba7
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/lisp-mnt.el
View file

@ -5,7 +5,7 @@
;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com> ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
;; Created: 14 Jul 1992 ;; Created: 14 Jul 1992
;; Version: $Id: lisp-mnt.el,v 1.3 1993/03/24 23:46:52 esr Exp $ ;; Version: $Id: lisp-mnt.el,v 1.2 1993/03/25 01:57:43 eric Exp eric $
;; Keywords: docs ;; Keywords: docs
;; Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out! ;; Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!
@ -117,7 +117,7 @@
;; These functions all parse the headers of the current buffer ;; These functions all parse the headers of the current buffer
(defun lm-section-mark (hd) (defun lm-section-mark (hd &optional after)
;; Return the buffer location of a given section start marker ;; Return the buffer location of a given section start marker
(save-excursion (save-excursion
(let ((case-fold-search t)) (let ((case-fold-search t))
@ -125,6 +125,7 @@
(if (re-search-forward (concat "^;;; " hd ":$") nil t) (if (re-search-forward (concat "^;;; " hd ":$") nil t)
(progn (progn
(beginning-of-line) (beginning-of-line)
(if after (forward-line 1))
(point)) (point))
nil)))) nil))))
@ -312,19 +313,19 @@
(kill-buffer (current-buffer))) (kill-buffer (current-buffer)))
))) )))
(defun lm-commentary-region (&optional file) (defun lm-commentary (&optional file)
;; Return a pair of character locations enclosing the commentary region. ;; Return the commentary region of a file, as a string."
(save-excursion (save-excursion
(if file (if file
(find-file file)) (find-file file))
(prog1 (prog1
(let ((commentary (lm-section-mark "Commentary")) (let ((commentary (lm-section-mark "Commentary" t))
(change-log (lm-section-mark "Change Log")) (change-log (lm-section-mark "Change Log"))
(code (lm-section-mark "Code"))) (code (lm-section-mark "Code")))
(if commentary (and commentary
(if change-log (if change-log
(cons commentary change-log) (buffer-substring commentary change-log)
(cons commentary code))) (buffer-substring commentary code)))
) )
(if file (if file
(kill-buffer (current-buffer))) (kill-buffer (current-buffer)))