[Emacs-diffs] Changes to emacs/lisp/dired-x.el

[Miles Bader]

Index: emacs/lisp/dired-x.el
diff -c emacs/lisp/dired-x.el:1.48 emacs/lisp/dired-x.el:1.49
*** emacs/lisp/dired-x.el:1.48  Tue Feb  4 06:08:00 2003
--- emacs/lisp/dired-x.el       Fri Mar  7 03:26:32 2003
***************
*** 998,1008 ****
    :group 'dired-x
    :type '(alist :key-type regexp :value-type (repeat sexp)))
  
  (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 nil) ; case-sensitive matching
           ;; Prepend the user's alist to the default alist.
           (alist (append dired-guess-shell-alist-user
                          dired-guess-shell-alist-default))
--- 998,1012 ----
    :group 'dired-x
    :type '(alist :key-type regexp :value-type (repeat sexp)))
  
+ (defvar dired-guess-shell-case-fold-search nil
+   "*If non-nil, `dired-guess-shell-alist-default' and
+ `dired-guess-shell-alist-user' are matched case-insensitively.")
+ 
  (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)
           ;; Prepend the user's alist to the default alist.
           (alist (append dired-guess-shell-alist-user
                          dired-guess-shell-alist-default))