Mercurial > emacs
comparison lisp/mh-e/mh-print.el @ 90229:626b546fed64
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-83
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 554-555)
- Update from CVS
- Remove CVS keywords from newsticker files
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 19 Sep 2005 11:00:10 +0000 |
| parents | fa0da9b57058 |
| children | 5e2d3828e89f |
comparison
equal
deleted
inserted
replaced
| 90228:fa0da9b57058 | 90229:626b546fed64 |
|---|---|
| 151 ;;;###mh-autoload | 151 ;;;###mh-autoload |
| 152 (defun mh-ps-print-msg-show (file) | 152 (defun mh-ps-print-msg-show (file) |
| 153 "Print current show buffer to FILE." | 153 "Print current show buffer to FILE." |
| 154 (interactive (list (mh-ps-print-preprint current-prefix-arg))) | 154 (interactive (list (mh-ps-print-preprint current-prefix-arg))) |
| 155 (message "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s" | 155 (message "mh-ps-print-msg-show file %s keys %s mh-show-buffer %s" |
| 156 file (this-command-keys mh-show-buffer)) | 156 file (this-command-keys) mh-show-buffer) |
| 157 (let ((msg (mh-get-msg-num t)) | 157 (let ((msg (mh-get-msg-num t)) |
| 158 (folder mh-current-folder) | 158 (folder mh-current-folder) |
| 159 (show-buffer mh-show-buffer) | 159 (show-buffer mh-show-buffer) |
| 160 (show-window (get-buffer-window mh-show-buffer))) | 160 (show-window (get-buffer-window mh-show-buffer))) |
| 161 (if (and show-buffer show-window) | 161 (if (and show-buffer show-window) |