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*") |
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) |
265 |
|
|
266 |
(provide 'emacsbug) |
(provide 'emacsbug) |
267 |
|
|
268 |
|
;;; arch-tag: 248b6523-c3b5-4fec-9a3f-0411fafa7d49 |
269 |
;;; emacsbug.el ends here |
;;; emacsbug.el ends here |