Mercurial > emacs
comparison lisp/mail/emacsbug.el @ 91327:606f2d163a64
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 09 Jan 2008 01:21:15 +0000 |
| parents | 53108e6cea98 4c3c683cdff8 |
| children | d2de7d81aab9 |
comparison
equal
deleted
inserted
replaced
| 91326:b1a63d7fa09c | 91327:606f2d163a64 |
|---|---|
| 1 ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list | 1 ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list |
| 2 | 2 |
| 3 ;; Copyright (C) 1985, 1994, 1997, 1998, 2000, 2001, 2002, 2003, | 3 ;; Copyright (C) 1985, 1994, 1997, 1998, 2000, 2001, 2002, 2003, |
| 4 ;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc. | 4 ;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: K. Shane Hartman | 6 ;; Author: K. Shane Hartman |
| 7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 8 ;; Keywords: maint mail | 8 ;; Keywords: maint mail |
| 9 | 9 |
| 166 (insert (format " locale-coding-system: %s\n" locale-coding-system)) | 166 (insert (format " locale-coding-system: %s\n" locale-coding-system)) |
| 167 (insert (format " default-enable-multibyte-characters: %s\n" | 167 (insert (format " default-enable-multibyte-characters: %s\n" |
| 168 default-enable-multibyte-characters)) | 168 default-enable-multibyte-characters)) |
| 169 (insert "\n") | 169 (insert "\n") |
| 170 (insert (format "Major mode: %s\n" | 170 (insert (format "Major mode: %s\n" |
| 171 (buffer-local-value 'mode-name from-buffer))) | 171 (format-mode-line |
| 172 (buffer-local-value 'mode-name from-buffer) | |
| 173 nil nil from-buffer))) | |
| 172 (insert "\n") | 174 (insert "\n") |
| 173 (insert "Minor modes in effect:\n") | 175 (insert "Minor modes in effect:\n") |
| 174 (dolist (mode minor-mode-list) | 176 (dolist (mode minor-mode-list) |
| 175 (and (boundp mode) (buffer-local-value mode from-buffer) | 177 (and (boundp mode) (buffer-local-value mode from-buffer) |
| 176 (insert (format " %s: %s\n" mode | 178 (insert (format " %s: %s\n" mode |