diff options
| author | Richard M. Stallman | 1993-12-26 08:02:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-26 08:02:10 +0000 |
| commit | 3082623d014200b05eb4ef93a9ba47c387219efb (patch) | |
| tree | f2bb5b399765e2ff455a41f023fd09c313d59114 | |
| parent | ef92f83b818ba3cfee138186c4cad9439270dc6c (diff) | |
| download | emacs-3082623d014200b05eb4ef93a9ba47c387219efb.tar.gz emacs-3082623d014200b05eb4ef93a9ba47c387219efb.zip | |
(lm-report-bug): lm-maintainer returns a cons; convert it to a string.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index f97d25a6f32..ad5e78710b8 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 6 | ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com> | 6 | ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com> |
| 7 | ;; Created: 14 Jul 1992 | 7 | ;; Created: 14 Jul 1992 |
| 8 | ;; Version: $Id: lisp-mnt.el,v 1.5 1993/12/22 12:06:54 friedman Exp rms $ | 8 | ;; Version: $Id: lisp-mnt.el,v 1.6 1993/12/26 07:56:21 rms Exp rms $ |
| 9 | ;; Keywords: docs | 9 | ;; Keywords: docs |
| 10 | ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out! | 10 | ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out! |
| 11 | 11 | ||
| @@ -421,7 +421,11 @@ Prompts for bug subject. Leaves you in a mail buffer." | |||
| 421 | (let ((package (buffer-name)) | 421 | (let ((package (buffer-name)) |
| 422 | (addr (lm-maintainer)) | 422 | (addr (lm-maintainer)) |
| 423 | (version (lm-version))) | 423 | (version (lm-version))) |
| 424 | (mail nil (or addr bug-gnu-emacs) topic) | 424 | (mail nil |
| 425 | (if addr | ||
| 426 | (concat (car addr) " <" (cdr addr) ">") | ||
| 427 | bug-gnu-emacs) | ||
| 428 | topic) | ||
| 425 | (goto-char (point-max)) | 429 | (goto-char (point-max)) |
| 426 | (insert "\nIn " | 430 | (insert "\nIn " |
| 427 | package | 431 | package |