Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 52757:c546768fdb22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 05 Oct 2003 13:51:43 +0000
parents ef1f49172c0b
children 84cd4892a56e
comparison
equal deleted inserted replaced
52756:371ac8b3328e 52757:c546768fdb22
77 ;; the bug subject string is read. 77 ;; the bug subject string is read.
78 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) 78 (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
79 ;; If there are four numbers in emacs-version, this is a pretest 79 ;; If there are four numbers in emacs-version, this is a pretest
80 ;; version. 80 ;; version.
81 (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version)) 81 (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
82 (from-buffer (current-buffer))
82 user-point prompt-beg-point message-end-point) 83 user-point prompt-beg-point message-end-point)
83 (setq message-end-point 84 (setq message-end-point
84 (with-current-buffer (get-buffer-create "*Messages*") 85 (with-current-buffer (get-buffer-create "*Messages*")
85 (point-max-marker))) 86 (point-max-marker)))
86 (compose-mail (if pretest-p 87 (compose-mail (if pretest-p
139 "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG")) 140 "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG"))
140 (insert (format " locale-coding-system: %s\n" locale-coding-system)) 141 (insert (format " locale-coding-system: %s\n" locale-coding-system))
141 (insert (format " default-enable-multibyte-characters: %s\n" 142 (insert (format " default-enable-multibyte-characters: %s\n"
142 default-enable-multibyte-characters)) 143 default-enable-multibyte-characters))
143 (insert "\n") 144 (insert "\n")
144 (insert (format "Major mode: %s\n" mode-name)) 145 (insert (format "Major mode: %s\n"
146 (buffer-local-value 'mode-name from-buffer)))
145 (insert "\n") 147 (insert "\n")
146 (insert "Minor modes in effect:\n") 148 (insert "Minor modes in effect:\n")
147 (dolist (mode minor-mode-list) 149 (dolist (mode minor-mode-list)
148 (and (boundp mode) (symbol-value mode) 150 (and (boundp mode) (buffer-local-value mode from-buffer)
149 (insert (format " %s: %s\n" mode (symbol-value mode))))) 151 (insert (format " %s: %s\n" mode
152 (buffer-local-value mode from-buffer)))))
150 (insert "\n") 153 (insert "\n")
151 (insert "Recent input:\n") 154 (insert "Recent input:\n")
152 (let ((before-keys (point))) 155 (let ((before-keys (point)))
153 (insert (mapconcat (lambda (key) 156 (insert (mapconcat (lambda (key)
154 (if (or (integerp key) 157 (if (or (integerp key)