Mercurial > emacs
changeset 95348:5d45e3ef3e0f
(describe-current-coding-system):
Don't assume selection-coding-system is always defined.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 27 May 2008 20:09:51 +0000 |
| parents | 8a8bad853798 |
| children | 953bf413e9a3 |
| files | lisp/ChangeLog lisp/international/mule-diag.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue May 27 20:08:21 2008 +0000 +++ b/lisp/ChangeLog Tue May 27 20:09:51 2008 +0000 @@ -1,5 +1,8 @@ 2008-05-27 Stefan Monnier <monnier@iro.umontreal.ca> + * international/mule-diag.el (describe-current-coding-system): + Don't assume selection-coding-system is always defined. + * tar-mode.el: Use defstruct and markers. (tar-setf): Remove. (tar-header): Use defstruct. Add `data-start' field.
--- a/lisp/international/mule-diag.el Tue May 27 20:08:21 2008 +0000 +++ b/lisp/international/mule-diag.el Tue May 27 20:09:51 2008 +0000 @@ -599,8 +599,9 @@ (print-coding-system-briefly (keyboard-coding-system)) (princ "Coding system for terminal output:\n ") (print-coding-system-briefly (terminal-coding-system)) - (princ "Coding system for inter-client cut and paste:\n ") - (print-coding-system-briefly selection-coding-system) + (when (boundp 'selection-coding-system) + (princ "Coding system for inter-client cut and paste:\n ") + (print-coding-system-briefly selection-coding-system)) (when (get-buffer-process (current-buffer)) (princ "Coding systems for process I/O:\n") (princ " encoding input to the process: ")