(describe-variable): Mention permanent local status.
This commit is contained in:
parent
1cccb0b6d4
commit
b0622c6d46
1 changed files with 5 additions and 2 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue