andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert 2007-04-06 change.

Browse source
This commit is contained in:
Romain Francoise 2007-05-01 09:33:51 +00:00
parent 0f6da68b85
commit d7af463c59
2 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
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

14
lisp/dired-x.el
View file

@ -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))