Mercurial > emacs

comparison lisp/dired-x.el @ 77627:6f7d1cf40bad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert 2007-04-06 change.
author Romain Francoise <romain@orebokech.com>
date Tue, 01 May 2007 09:33:51 +0000
parents 0e2f72a2fc13
children 9355f9b7bbff 70bf32a0f523
comparison
equal deleted inserted replaced
77626:29aedab251b7 77627:6f7d1cf40bad
43 ;; INSTALLATION: In your ~/.emacs, 43 ;; INSTALLATION: In your ~/.emacs,
44 ;; 44 ;;
45 ;; (add-hook 'dired-load-hook 45 ;; (add-hook 'dired-load-hook
46 ;; (function (lambda () 46 ;; (function (lambda ()
47 ;; (load "dired-x") 47 ;; (load "dired-x")
48 ;; ;; Set variables here. For example: 48 ;; ;; Set global variables here. For example:
49 ;; ;; (setq dired-guess-shell-gnutar "gtar") 49 ;; ;; (setq dired-guess-shell-gnutar "gtar")
50 ;; )))
51 ;; (add-hook 'dired-mode-hook
52 ;; (function (lambda ()
53 ;; ;; Set buffer-local variables here. For example:
50 ;; ;; (dired-omit-mode 1) 54 ;; ;; (dired-omit-mode 1)
51 ;; ))) 55 ;; )))
52 ;; 56 ;;
53 ;; At load time dired-x.el will install itself, redefine some functions, and 57 ;; At load time dired-x.el will install itself, redefine some functions, and
54 ;; bind some dired keys. *Please* see the info pages for more details. 58 ;; bind some dired keys. *Please* see the info pages for more details.
1121 \"BAR-COMMAND-1\" 1125 \"BAR-COMMAND-1\"
1122 \"BAR-COMMAND-2\")))\)" 1126 \"BAR-COMMAND-2\")))\)"
1123 :group 'dired-x 1127 :group 'dired-x
1124 :type '(alist :key-type regexp :value-type (repeat sexp))) 1128 :type '(alist :key-type regexp :value-type (repeat sexp)))
1125 1129
1130 (defcustom dired-guess-shell-case-fold-search t
1131 "If non-nil, `dired-guess-shell-alist-default' and
1132 `dired-guess-shell-alist-user' are matched case-insensitively."
1133 :group 'dired-x
1134 :type 'boolean)
1135
1126 (defun dired-guess-default (files) 1136 (defun dired-guess-default (files)
1127 "Guess a shell commands for FILES. Return command or list of commands. 1137 "Guess a shell commands for FILES. Return command or list of commands.
1128 See `dired-guess-shell-alist-user'." 1138 See `dired-guess-shell-alist-user'."
1129 1139
1130 (let* ((case-fold-search t) 1140 (let* ((case-fold-search dired-guess-shell-case-fold-search)
1131 ;; Prepend the user's alist to the default alist. 1141 ;; Prepend the user's alist to the default alist.
1132 (alist (append dired-guess-shell-alist-user 1142 (alist (append dired-guess-shell-alist-user
1133 dired-guess-shell-alist-default)) 1143 dired-guess-shell-alist-default))
1134 (file (car files)) 1144 (file (car files))
1135 (flist (cdr files)) 1145 (flist (cdr files))