comparison lisp/dired-x.el @ 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.

11499:24ae4a1359b8

;;; INSTALLATION: In your ~/.emacs,
;;;
;;; (add-hook 'dired-load-hook
;;;           (function (lambda ()
;;;                       (load "dired-x")
;;;                       ;; Set variables here.  For example:
;;;                       ;; (setq dired-guess-shell-gnutar "gtar")
;;;                       ;; (setq dired-omit-files-p t)
;;;                       )))
;;;
;;; At load time dired-x.el will install itself, redefine some functions, and
;;; bind some dired keys.  *Please* see the info pages for more details.

(defvar dired-omit-files-p nil
  "*If non-nil, \"uninteresting\" files are not listed (buffer-local).
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'.")

(defvar dired-omit-files "^#\\|^\\.$\\|^\\.\\.$"
  "*Filenames matching this regexp will not be displayed \(buffer-local\).
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
files.")

(defvar dired-omit-marker-char ?\017
  "Temporary marker used by by dired-omit.
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))))

(defun dired-omit-toggle (&optional flag)

11500:1bae87dcd653

;;; INSTALLATION: In your ~/.emacs,
;;;
;;; (add-hook 'dired-load-hook
;;;           (function (lambda ()
;;;                       (load "dired-x")
;;;                       ;; 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)
;;;                       )))
;;;
;;; At load time dired-x.el will install itself, redefine some functions, and
;;; bind some dired keys.  *Please* see the info pages for more details.

(defvar dired-omit-files-p nil
  "*If non-nil, \"uninteresting\" files are not listed (buffer-local).
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.
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
files.")

(defvar dired-omit-marker-char ?\017
  "Temporary marker used by by dired-omit.
Should never be used as marker by the user or other packages.")

(defun dired-omit-startup ()
  (or (assq 'dired-omit-files-p minor-mode-alist)
      (setq minor-mode-alist
            (append '((dired-omit-files-p " Omit")) minor-mode-alist))))

(defun dired-omit-toggle (&optional flag)