changeset 11500:1bae87dcd653

Change the instructions in the INSTALLATION comment block to set buffer-local variables like dired-omit-files-p in dired-mode-hook. (dired-omit-files-p): Make local to all buffers. (dired-omit-files): Fix doc string (not buffer-local). (dired-omit-startup): Don't need to make dired-omit-files-p local to buffer here.
author Karl Heuer <kwzh@gnu.org>
date Thu, 20 Apr 1995 16:21:55 +0000
parents 24ae4a1359b8
children a56d6a86fa85
files lisp/dired-x.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired-x.el	Thu Apr 20 08:28:38 1995 +0000
+++ b/lisp/dired-x.el	Thu Apr 20 16:21:55 1995 +0000
@@ -43,8 +43,12 @@
 ;;; (add-hook 'dired-load-hook
 ;;;           (function (lambda ()
 ;;;                       (load "dired-x")
-;;;                       ;; Set variables here.  For example:
+;;;                       ;; Set global variables here.  For example:
 ;;;                       ;; (setq dired-guess-shell-gnutar "gtar")
+;;;                       )))
+;;; (add-hook 'dired-mode-hook
+;;;           (function (lambda ()
+;;;                       ;; Set buffer-local variables here.  For example:
 ;;;                       ;; (setq dired-omit-files-p t)
 ;;;                       )))
 ;;;
@@ -155,9 +159,10 @@
 Use \\[dired-omit-toggle] to toggle its value.
 Uninteresting files are those whose filenames match regexp `dired-omit-files',
 plus those ending with extensions in `dired-omit-extensions'.")
+(make-variable-buffer-local 'dired-omit-files-p)
 
 (defvar dired-omit-files "^#\\|^\\.$\\|^\\.\\.$"
-  "*Filenames matching this regexp will not be displayed \(buffer-local\).
+  "*Filenames matching this regexp will not be displayed.
 This only has effect when `dired-omit-files-p' is t.  See interactive function
 `dired-omit-toggle' \(\\[dired-omit-toggle]\) and variable
 `dired-omit-extensions'.  The default is to omit  `.', `..', and auto-save
@@ -528,7 +533,6 @@
 Should never be used as marker by the user or other packages.")
 
 (defun dired-omit-startup ()
-  (make-local-variable 'dired-omit-files-p)
   (or (assq 'dired-omit-files-p minor-mode-alist)
       (setq minor-mode-alist
             (append '((dired-omit-files-p " Omit")) minor-mode-alist))))