diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-07 17:35:32 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-07 17:35:32 +0000 |
| commit | 947cc6f6be26e5973b1e637eb82cc897ce753a5e (patch) | |
| tree | a087db54607ffee67d21bd61e9bc97a85d577a09 | |
| parent | b98ef4b8169f53c7e774a0533ce928504333cdae (diff) | |
| download | emacs-947cc6f6be26e5973b1e637eb82cc897ce753a5e.tar.gz | |
(ps-article-author, ps-info-file, ps-info-node): Don't die if header is missing.
| -rw-r--r-- | lisp/ps-print.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 60bc9aca6b1..b4d50b80ea3 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1954,7 +1954,7 @@ EndDSCPage\n")) (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 @@ EndDSCPage\n")) (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 @@ EndDSCPage\n")) (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 ???"))) |