Mercurial > emacs
comparison lisp/dired-x.el @ 76976:d89bf6db73a1
(dired-guess-shell-case-fold-search): Delete var.
(dired-guess-default): Respect case.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Fri, 06 Apr 2007 18:31:05 +0000 |
parents | d75435a2e621 |
children | 0e2f72a2fc13 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
76975:516f142e7353 | 76976:d89bf6db73a1 |
---|---|
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 global variables here. For example: | 48 ;; ;; Set 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: | |
54 ;; ;; (dired-omit-mode 1) | 50 ;; ;; (dired-omit-mode 1) |
55 ;; ))) | 51 ;; ))) |
56 ;; | 52 ;; |
57 ;; At load time dired-x.el will install itself, redefine some functions, and | 53 ;; At load time dired-x.el will install itself, redefine some functions, and |
58 ;; bind some dired keys. *Please* see the info pages for more details. | 54 ;; bind some dired keys. *Please* see the info pages for more details. |
1128 \"BAR-COMMAND-1\" | 1124 \"BAR-COMMAND-1\" |
1129 \"BAR-COMMAND-2\")))\)" | 1125 \"BAR-COMMAND-2\")))\)" |
1130 :group 'dired-x | 1126 :group 'dired-x |
1131 :type '(alist :key-type regexp :value-type (repeat sexp))) | 1127 :type '(alist :key-type regexp :value-type (repeat sexp))) |
1132 | 1128 |
1133 (defcustom dired-guess-shell-case-fold-search t | |
1134 "If non-nil, `dired-guess-shell-alist-default' and | |
1135 `dired-guess-shell-alist-user' are matched case-insensitively." | |
1136 :group 'dired-x | |
1137 :type 'boolean) | |
1138 | |
1139 (defun dired-guess-default (files) | 1129 (defun dired-guess-default (files) |
1140 "Guess a shell commands for FILES. Return command or list of commands. | 1130 "Guess a shell commands for FILES. Return command or list of commands. |
1141 See `dired-guess-shell-alist-user'." | 1131 See `dired-guess-shell-alist-user'." |
1142 | 1132 |
1143 (let* ((case-fold-search dired-guess-shell-case-fold-search) | 1133 (let* ((case-fold-search t) |
1144 ;; Prepend the user's alist to the default alist. | 1134 ;; Prepend the user's alist to the default alist. |
1145 (alist (append dired-guess-shell-alist-user | 1135 (alist (append dired-guess-shell-alist-user |
1146 dired-guess-shell-alist-default)) | 1136 dired-guess-shell-alist-default)) |
1147 (file (car files)) | 1137 (file (car files)) |
1148 (flist (cdr files)) | 1138 (flist (cdr files)) |