(describe-variable): Mention permanent local status.

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)))