Commit d7af463c authored by Romain Francoise's avatar Romain Francoise
Browse files

Revert 2007-04-06 change.

parent 0f6da68b
2007-05-01 Romain Francoise <romain@orebokech.com>
* dired-x.el: Revert 2007-04-06 change.
2007-04-30 Nick Roberts <nickrob@snap.net.nz>
 
* progmodes/gud.el (gud-menu-map): Pdb can't handle SIGINT so
......@@ -45,8 +45,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:
;; ;; (dired-omit-mode 1)
;; )))
;;
......@@ -1123,11 +1127,17 @@ 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 t)
(let* ((case-fold-search dired-guess-shell-case-fold-search)
;; Prepend the user's alist to the default alist.
(alist (append dired-guess-shell-alist-user
dired-guess-shell-alist-default))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment