Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 21974:42b308d86213

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): After reinserting the signature, leave point before it.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 May 1998 06:31:31 +0000
parents 0f8ca1599a5a
children 386e14726b59
comparison
equal deleted inserted replaced
21973:f3d29552e393 21974:42b308d86213
89 89
90 (let ((signature (buffer-substring (point) (point-max)))) 90 (let ((signature (buffer-substring (point) (point-max))))
91 ;; Discourage users to write non-English text. 91 ;; Discourage users to write non-English text.
92 (set-buffer-multibyte nil) 92 (set-buffer-multibyte nil)
93 (delete-region (point) (point-max)) 93 (delete-region (point) (point-max))
94 (insert signature)) 94 (insert signature)
95 (backward-char (length signature)))
95 (unless report-emacs-bug-no-explanations 96 (unless report-emacs-bug-no-explanations
96 ;; Insert warnings for novice users. 97 ;; Insert warnings for novice users.
97 (insert "This bug report will be sent to the Free Software Foundation,\n") 98 (insert "This bug report will be sent to the Free Software Foundation,\n")
98 (let ((pos (point))) 99 (let ((pos (point)))
99 (insert " not to your local site managers!!") 100 (insert " not to your local site managers!!")