Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 52686:ef1f49172c0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Mention major and minor modes.
author Richard M. Stallman <rms@gnu.org>
date Tue, 30 Sep 2003 12:45:44 +0000
parents 695cf19ef79e
children c546768fdb22
comparison
equal deleted inserted replaced
52685:d35d6c2f780f 52686:ef1f49172c0b
138 '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES" 138 '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
139 "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG")) 139 "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG"))
140 (insert (format " locale-coding-system: %s\n" locale-coding-system)) 140 (insert (format " locale-coding-system: %s\n" locale-coding-system))
141 (insert (format " default-enable-multibyte-characters: %s\n" 141 (insert (format " default-enable-multibyte-characters: %s\n"
142 default-enable-multibyte-characters)) 142 default-enable-multibyte-characters))
143 (insert "\n")
144 (insert (format "Major mode: %s\n" mode-name))
145 (insert "\n")
146 (insert "Minor modes in effect:\n")
147 (dolist (mode minor-mode-list)
148 (and (boundp mode) (symbol-value mode)
149 (insert (format " %s: %s\n" mode (symbol-value mode)))))
143 (insert "\n") 150 (insert "\n")
144 (insert "Recent input:\n") 151 (insert "Recent input:\n")
145 (let ((before-keys (point))) 152 (let ((before-keys (point)))
146 (insert (mapconcat (lambda (key) 153 (insert (mapconcat (lambda (key)
147 (if (or (integerp key) 154 (if (or (integerp key)