From e2b551c50e6444892055652b0ba6f3f4f96917f7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 27 Jun 2011 17:39:03 -0400 Subject: [PATCH] * lisp/help-fns.el (describe-variable): Fix message for terminal-local vars. --- lisp/ChangeLog | 4 ++++ lisp/help-fns.el | 18 ++++++++++++------ 2 files changed, 16 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 170939cfc4b..c13fe48a730 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-06-27 Stefan Monnier + + * help-fns.el (describe-variable): Fix message for terminal-local vars. + 2011-06-27 Katsumi Yamaoka * net/ange-ftp.el: Allow loading .gz files (Bug#6923). diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 1cd62c1dfa4..b13e6a77d5d 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -731,12 +731,18 @@ it is displayed along with the global value." (delete-region (1- from) from))))))) (terpri) (when locus - (if (bufferp locus) - (princ (format "%socal in buffer %s; " - (if (get variable 'permanent-local) - "Permanently l" "L") - (buffer-name))) - (princ (format "It is a frame-local variable; "))) + (cond + ((bufferp locus) + (princ (format "%socal in buffer %s; " + (if (get variable 'permanent-local) + "Permanently l" "L") + (buffer-name)))) + ((framep locus) + (princ (format "It is a frame-local variable; "))) + ((terminal-live-p locus) + (princ (format "It is a terminal-local variable; "))) + (t + (princ (format "It is local to %S" locus)))) (if (not (default-boundp variable)) (princ "globally void") (let ((val (default-value variable))) -- 2.39.2