diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-13 18:35:16 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-13 18:35:16 +0000 |
| commit | b0622c6d46e7109cc2afce4e8edbb1d06240420c (patch) | |
| tree | 67339b7c4555a8cde7ec610b4fe2d27baba012e4 | |
| parent | 1cccb0b6d4e9cd70fccca16ef9c99c1f67b0a805 (diff) | |
| download | emacs-b0622c6d46e7109cc2afce4e8edbb1d06240420c.tar.gz emacs-b0622c6d46e7109cc2afce4e8edbb1d06240420c.tar.bz2 emacs-b0622c6d46e7109cc2afce4e8edbb1d06240420c.zip | |
(describe-variable): Mention permanent local status.
| -rw-r--r-- | lisp/help-fns.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 7454f8ea105..71a5044002d 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1,6 +1,6 @@ ;;; help-fns.el --- Complex help functions -;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002 +;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2003 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -410,7 +410,10 @@ it is displayed along with the global value." (delete-region (1- from) from))))) (terpri) (when (local-variable-p variable) - (princ (format "Local in buffer %s; " (buffer-name))) + (princ (format "%socal in buffer %s; " + (if (get variable 'permanent-local) + "Permanently l" "L") + (buffer-name))) (if (not (default-boundp variable)) (princ "globally void") (let ((val (default-value variable))) |