From 0fe444095883ae3a744c9082716c93a6a8362f93 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 27 May 2008 20:09:51 +0000 Subject: [PATCH] (describe-current-coding-system): Don't assume selection-coding-system is always defined. --- lisp/ChangeLog | 3 +++ lisp/international/mule-diag.el | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05308ac0cd4..afcee6d44eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-05-27 Stefan Monnier + * 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. diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 5b58af5fcd9..91c7ef78207 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -599,8 +599,9 @@ docstring, and print only the first line of the docstring." (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: ") -- 2.39.2