[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el |
Date: |
Sun, 05 Oct 2003 09:51:43 -0400 |
Index: emacs/lisp/mail/emacsbug.el
diff -c emacs/lisp/mail/emacsbug.el:1.60 emacs/lisp/mail/emacsbug.el:1.61
*** emacs/lisp/mail/emacsbug.el:1.60 Tue Sep 30 08:45:44 2003
--- emacs/lisp/mail/emacsbug.el Sun Oct 5 09:51:43 2003
***************
*** 79,84 ****
--- 79,85 ----
;; If there are four numbers in emacs-version, this is a pretest
;; version.
(let ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
+ (from-buffer (current-buffer))
user-point prompt-beg-point message-end-point)
(setq message-end-point
(with-current-buffer (get-buffer-create "*Messages*")
***************
*** 141,152 ****
(insert (format " default-enable-multibyte-characters: %s\n"
default-enable-multibyte-characters))
(insert "\n")
! (insert (format "Major mode: %s\n" mode-name))
(insert "\n")
(insert "Minor modes in effect:\n")
(dolist (mode minor-mode-list)
! (and (boundp mode) (symbol-value mode)
! (insert (format " %s: %s\n" mode (symbol-value mode)))))
(insert "\n")
(insert "Recent input:\n")
(let ((before-keys (point)))
--- 142,155 ----
(insert (format " default-enable-multibyte-characters: %s\n"
default-enable-multibyte-characters))
(insert "\n")
! (insert (format "Major mode: %s\n"
! (buffer-local-value 'mode-name from-buffer)))
(insert "\n")
(insert "Minor modes in effect:\n")
(dolist (mode minor-mode-list)
! (and (boundp mode) (buffer-local-value mode from-buffer)
! (insert (format " %s: %s\n" mode
! (buffer-local-value mode from-buffer)))))
(insert "\n")
(insert "Recent input:\n")
(let ((before-keys (point)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/emacsbug.el,
Richard M. Stallman <=