Mercurial > emacs

changeset 15621:6be6d1990543

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.
author Karl Heuer <kwzh@gnu.org>
date Sun, 07 Jul 1996 17:35:32 +0000
parents 7844c0f756d0
children f510f75d8e4c
files lisp/ps-print.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-print.el	Sun Jul 07 17:30:04 1996 +0000
+++ b/lisp/ps-print.el	Sun Jul 07 17:35:32 1996 +0000
@@ -1954,7 +1954,7 @@
 (defun ps-article-author ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "^From:[ \t]+\\(.*\\)$")
+    (if (re-search-forward "^From:[ \t]+\\(.*\\)$" nil t)
 	(let ((fromstring (buffer-substring (match-beginning 1) (match-end 1))))
 	  (cond
 
@@ -2027,7 +2027,7 @@
 (defun ps-info-file ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)")
+    (if (re-search-forward "File:[ \t]+\\([^, \t\n]*\\)" nil t)
 	(buffer-substring (match-beginning 1) (match-end 1))
       "File ???")))
 
@@ -2036,7 +2036,7 @@
 (defun ps-info-node ()
   (save-excursion
     (goto-char (point-min))
-    (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)")
+    (if (re-search-forward "Node:[ \t]+\\([^,\t\n]*\\)" nil t)
 	(buffer-substring (match-beginning 1) (match-end 1))
       "Node ???")))