[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/help-fns.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/help-fns.el |
Date: |
Tue, 13 May 2003 14:35:17 -0400 |
Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.33 emacs/lisp/help-fns.el:1.34
*** emacs/lisp/help-fns.el:1.33 Tue May 6 09:54:21 2003
--- emacs/lisp/help-fns.el Tue May 13 14:35:16 2003
***************
*** 1,6 ****
;;; help-fns.el --- Complex help functions
! ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002
;; Free Software Foundation, Inc.
;; Maintainer: FSF
--- 1,6 ----
;;; help-fns.el --- Complex help functions
! ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2003
;; Free Software Foundation, Inc.
;; Maintainer: FSF
***************
*** 410,416 ****
(delete-region (1- from) from)))))
(terpri)
(when (local-variable-p variable)
! (princ (format "Local in buffer %s; " (buffer-name)))
(if (not (default-boundp variable))
(princ "globally void")
(let ((val (default-value variable)))
--- 410,419 ----
(delete-region (1- from) from)))))
(terpri)
(when (local-variable-p variable)
! (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)))