comparison lisp/emacs-lisp/lisp-mnt.el @ 2528:df68ddbcc2f1

(lm-commentary-region): Gone. (lm-commentary): New function.

2527:93015b63b041

;; Copyright (C) 1992 Free Software Foundation, Inc.

;; Author: Eric S. Raymond <[e-mail]>
;; Maintainer: Eric S. Raymond <[e-mail]>
;; Created: 14 Jul 1992
;; Version: $Id: lisp-mnt.el,v 1.3 1993/03/24 23:46:52 esr Exp $
;; Keywords: docs
;; Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!

;; This file is part of GNU Emacs.

(require 'picture)		; provides move-to-column-force
(require 'emacsbug)

;; These functions all parse the headers of the current buffer

(defun lm-section-mark (hd)
  ;; Return the buffer location of a given section start marker
  (save-excursion
    (let ((case-fold-search t))
      (goto-char (point-min))
      (if (re-search-forward (concat "^;;; " hd ":$") nil t)
	  (progn
	    (beginning-of-line)
	    (point))
	nil))))

(defun lm-code-mark ()
  ;; Return the buffer location of the code start marker

	(lm-header "adapted-by")
      (if file
	  (kill-buffer (current-buffer)))
      )))

(defun lm-commentary-region (&optional file)
  ;; Return a pair of character locations enclosing the commentary region.
  (save-excursion
    (if file
	(find-file file))
    (prog1
	(let ((commentary (lm-section-mark "Commentary"))
	      (change-log (lm-section-mark "Change Log"))
	      (code (lm-section-mark "Code")))
	  (if commentary
	      (if change-log
		  (cons commentary change-log)
		(cons commentary code)))
	  )
      (if file
	  (kill-buffer (current-buffer)))
      )))

2528:df68ddbcc2f1

;; Copyright (C) 1992 Free Software Foundation, Inc.

;; Author: Eric S. Raymond <[e-mail]>
;; Maintainer: Eric S. Raymond <[e-mail]>
;; Created: 14 Jul 1992
;; 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!

;; This file is part of GNU Emacs.

(require 'picture)		; provides move-to-column-force
(require 'emacsbug)

;; These functions all parse the headers of the current buffer

(defun lm-section-mark (hd &optional after)
  ;; Return the buffer location of a given section start marker
  (save-excursion
    (let ((case-fold-search t))
      (goto-char (point-min))
      (if (re-search-forward (concat "^;;; " hd ":$") nil t)
	  (progn
	    (beginning-of-line)
	    (if after (forward-line 1))
	    (point))
	nil))))

(defun lm-code-mark ()
  ;; Return the buffer location of the code start marker

	(lm-header "adapted-by")
      (if file
	  (kill-buffer (current-buffer)))
      )))

(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" t))
	      (change-log (lm-section-mark "Change Log"))
	      (code (lm-section-mark "Code")))
	  (and commentary
	      (if change-log
		  (buffer-substring commentary change-log)
		(buffer-substring commentary code)))
	  )
      (if file
	  (kill-buffer (current-buffer)))
      )))