/[emacs]/emacs/lisp/mail/emacsbug.el
ViewVC logotype

Diff of /emacs/lisp/mail/emacsbug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57.2.1 by miles, Fri Apr 4 06:20:27 2003 UTC revision 1.57.2.2 by miles, Tue Oct 14 23:39:25 2003 UTC
# Line 79  Prompts for bug subject.  Leaves you in Line 79  Prompts for bug subject.  Leaves you in
79    ;; If there are four numbers in emacs-version, this is a pretest    ;; If there are four numbers in emacs-version, this is a pretest
80    ;; version.    ;; version.
81    (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))    (let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
82            (from-buffer (current-buffer))
83          user-point prompt-beg-point message-end-point)          user-point prompt-beg-point message-end-point)
84      (setq message-end-point      (setq message-end-point
85            (with-current-buffer (get-buffer-create "*Messages*")            (with-current-buffer (get-buffer-create "*Messages*")
# Line 141  usually do not have translators to read Line 142  usually do not have translators to read
142      (insert (format "  default-enable-multibyte-characters: %s\n"      (insert (format "  default-enable-multibyte-characters: %s\n"
143                      default-enable-multibyte-characters))                      default-enable-multibyte-characters))
144      (insert "\n")      (insert "\n")
145        (insert (format "Major mode: %s\n"
146                        (buffer-local-value 'mode-name from-buffer)))
147        (insert "\n")
148        (insert "Minor modes in effect:\n")
149        (dolist (mode minor-mode-list)
150          (and (boundp mode) (buffer-local-value mode from-buffer)
151               (insert (format "  %s: %s\n" mode
152                               (buffer-local-value mode from-buffer)))))
153        (insert "\n")
154      (insert "Recent input:\n")      (insert "Recent input:\n")
155      (let ((before-keys (point)))      (let ((before-keys (point)))
156        (insert (mapconcat (lambda (key)        (insert (mapconcat (lambda (key)
# Line 255  and send the mail again using \\[mail-se Line 265  and send the mail again using \\[mail-se
265    
266  (provide 'emacsbug)  (provide 'emacsbug)
267    
268    ;;; arch-tag: 248b6523-c3b5-4fec-9a3f-0411fafa7d49
269  ;;; emacsbug.el ends here  ;;; emacsbug.el ends here

Legend:
Removed from v.1.57.2.1  
changed lines
  Added in v.1.57.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26