Mercurial > emacs

changeset 20637:8a5bdbbc1d6a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lm-get-package-name, lm-header, lm-header-multiline, lm-summary, lm-version, lm-commentary): Return string without properties. (lm-get-header, lm-get-package-name, lm-crack-address, lm-insert-at-column, lm-report-bug): Minor doc fixes.
author Dave Love <fx@gnu.org>
date Sun, 11 Jan 1998 12:48:04 +0000
parents 5ab6701a2b4b
children c3360a392ae4
files lisp/emacs-lisp/lisp-mnt.el
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el	Sun Jan 11 12:26:21 1998 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Sun Jan 11 12:48:04 1998 +0000
@@ -1,6 +1,6 @@
 ;;; lisp-mnt.el --- minor mode for Emacs Lisp maintainers
 
-;; Copyright (C) 1992, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1994, 1997 Free Software Foundation, Inc.
 
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
@@ -143,7 +143,7 @@
 ;; These functions all parse the headers of the current buffer
 
 (defsubst lm-get-header-re (header &optional mode)
-  "Returns regexp for matching HEADER.
+  "Return regexp for matching HEADER.
 If called with optional MODE and with value `section',
 return section regexp instead."
   (cond ((eq mode 'section)
@@ -152,14 +152,14 @@
 	 (concat lm-header-prefix header ":[ \t]*"))))
 
 (defsubst lm-get-package-name ()
-  "Returns package name by looking at the first line."
+  "Return package name by looking at the first line."
   (save-excursion
     (goto-char (point-min))
     (if (and (looking-at (concat lm-header-prefix))
 	     (progn (goto-char (match-end 0))
 		    (looking-at "\\([^\t ]+\\)")
 		    (match-end 1)))
-	(buffer-substring (match-beginning 1) (match-end 1))
+	(buffer-substring-no-properties (match-beginning 1) (match-end 1))
       )))
 
 (defun lm-section-mark (header &optional after)
@@ -196,7 +196,7 @@
 	     ;;   RCS ident likes format "$identifier: data$"
 	     (looking-at "\\([^$\n]+\\)")
 	     (match-end 1))
-	(buffer-substring (match-beginning 1) (match-end 1))
+	(buffer-substring-no-properties (match-beginning 1) (match-end 1))
       nil)))
 
 (defun lm-header-multiline (header)
@@ -215,7 +215,7 @@
 		      (goto-char (match-end 0))
 		      (looking-at "\\(.*\\)"))
 		    (match-end 1))
-	  (setq res (cons (buffer-substring
+	  (setq res (cons (buffer-substring-no-properties
 			   (match-beginning 1)
 			   (match-end 1))
 			  res))
@@ -237,13 +237,13 @@
 	   (looking-at lm-header-prefix)
 	   (progn (goto-char (match-end 0))
 		  (looking-at "[^ ]+[ \t]+--+[ \t]+\\(.*\\)")))
-	  (buffer-substring (match-beginning 1) (match-end 1)))
+	  (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
       (if file
 	  (kill-buffer (current-buffer)))
       )))
 
 (defun lm-crack-address (x)
-  "Split up an email address into full name and real email address.
+  "Split up an email address X into full name and real email address.
 The value is a cons of the form (FULLNAME . ADDRESS)."
   (cond ((string-match "\\(.+\\) [(<]\\(\\S-+@\\S-+\\)[>)]" x)
 	 (cons (substring x (match-beginning 1) (match-end 1))
@@ -334,7 +334,7 @@
 	   (cond
 	    ;; Look for an RCS header
 	    ((re-search-forward "\\$[I]d: [^ ]+ \\([^ ]+\\) " header-max t)
-	     (buffer-substring (match-beginning 1) (match-end 1)))
+	     (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
 
 	    ;; Look for an SCCS header
 	    ((re-search-forward 
@@ -343,7 +343,7 @@
 	       (regexp-quote (file-name-nondirectory (buffer-file-name)))
 	       "\t\\([012345679.]*\\)")
 	      header-max t)
-	     (buffer-substring (match-beginning 1) (match-end 1)))
+	     (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
 
 	    (t nil))))
       (if file
@@ -389,9 +389,9 @@
 	      )
 	  (cond
 	   ((and commentary change-log)
-	    (buffer-substring commentary change-log))
+	    (buffer-substring-no-properties commentary change-log))
 	   ((and commentary code)
-	    (buffer-substring commentary code))
+	    (buffer-substring-no-properties commentary code))
 	   (t
 	    nil)))
       (if file
@@ -401,7 +401,7 @@
 ;;; Verification and synopses
 
 (defun lm-insert-at-column (col &rest strings)
-  "Insert list of STRINGS, at column COL."
+  "Insert, at column COL, list of STRINGS."
   (if (> (current-column) col) (insert "\n"))
   (move-to-column col t)
   (apply 'insert strings))
@@ -528,7 +528,7 @@
 
 (defun lm-report-bug (topic)
   "Report a bug in the package currently being visited to its maintainer.
-Prompts for bug subject.  Leaves you in a mail buffer."
+Prompts for bug subject TOPIC.  Leaves you in a mail buffer."
   (interactive "sBug Subject: ")
   (let ((package	(lm-get-package-name))
 	(addr		(lm-maintainer))