diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-06 18:31:05 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-06 18:31:05 +0000 |
| commit | 06f81a7989036c33a257076330113ff474b2e39a (patch) | |
| tree | a0140390ad04b7a9c012a5dc564c6025c591e265 /lisp/dired-x.el | |
| parent | e2909d9f7ab486e7ea13e65638a21d6372e3feeb (diff) | |
| download | emacs-06f81a7989036c33a257076330113ff474b2e39a.tar.gz | |
(dired-guess-shell-case-fold-search): Delete var.
(dired-guess-default): Respect case.
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 1a1cdd5a542..f5e6250b475 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -45,12 +45,8 @@ ;; (add-hook 'dired-load-hook ;; (function (lambda () ;; (load "dired-x") -;; ;; Set global variables here. For example: +;; ;; Set variables here. For example: ;; ;; (setq dired-guess-shell-gnutar "gtar") -;; ))) -;; (add-hook 'dired-mode-hook -;; (function (lambda () -;; ;; Set buffer-local variables here. For example: ;; ;; (dired-omit-mode 1) ;; ))) ;; @@ -1130,17 +1126,11 @@ You can set this variable in your ~/.emacs. For example, to add rules for :group 'dired-x :type '(alist :key-type regexp :value-type (repeat sexp))) -(defcustom dired-guess-shell-case-fold-search t - "If non-nil, `dired-guess-shell-alist-default' and -`dired-guess-shell-alist-user' are matched case-insensitively." - :group 'dired-x - :type 'boolean) - (defun dired-guess-default (files) "Guess a shell commands for FILES. Return command or list of commands. See `dired-guess-shell-alist-user'." - (let* ((case-fold-search dired-guess-shell-case-fold-search) + (let* ((case-fold-search t) ;; Prepend the user's alist to the default alist. (alist (append dired-guess-shell-alist-user dired-guess-shell-alist-default)) |