mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -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>
;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
;; 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
;; 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
(defun lm-section-mark (hd)
(defun lm-section-mark (hd &optional after)
;; Return the buffer location of a given section start marker
(save-excursion
(let ((case-fold-search t))
@ -125,6 +125,7 @@
(if (re-search-forward (concat "^;;; " hd ":$") nil t)
(progn
(beginning-of-line)
(if after (forward-line 1))
(point))
nil))))
@ -312,19 +313,19 @@
(kill-buffer (current-buffer)))
)))
(defun lm-commentary-region (&optional file)
;; Return a pair of character locations enclosing the commentary region.
(defun lm-commentary (&optional file)
;; Return the commentary region of a file, as a string."
(save-excursion
(if file
(find-file file))
(prog1
(let ((commentary (lm-section-mark "Commentary"))
(let ((commentary (lm-section-mark "Commentary" t))
(change-log (lm-section-mark "Change Log"))
(code (lm-section-mark "Code")))
(if commentary
(and commentary
(if change-log
(cons commentary change-log)
(cons commentary code)))
(buffer-substring commentary change-log)
(buffer-substring commentary code)))
)
(if file
(kill-buffer (current-buffer)))