/[emacs]/emacs/lisp/dired-x.el
ViewVC logotype

Diff of /emacs/lisp/dired-x.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by lektu, Tue Feb 4 11:08:00 2003 UTC revision 1.49 by lektu, Fri Mar 7 08:26:32 2003 UTC
# Line 998  You can set this variable in your ~/.ema Line 998  You can set this variable in your ~/.ema
998    :group 'dired-x    :group 'dired-x
999    :type '(alist :key-type regexp :value-type (repeat sexp)))    :type '(alist :key-type regexp :value-type (repeat sexp)))
1000    
1001    (defvar dired-guess-shell-case-fold-search nil
1002      "*If non-nil, `dired-guess-shell-alist-default' and
1003    `dired-guess-shell-alist-user' are matched case-insensitively.")
1004    
1005  (defun dired-guess-default (files)  (defun dired-guess-default (files)
1006    "Guess a shell commands for FILES.  Return command or list of commands.    "Guess a shell commands for FILES.  Return command or list of commands.
1007  See `dired-guess-shell-alist-user'."  See `dired-guess-shell-alist-user'."
1008    
1009    (let* ((case-fold-search nil) ; case-sensitive matching    (let* ((case-fold-search dired-guess-shell-case-fold-search)
1010           ;; Prepend the user's alist to the default alist.           ;; Prepend the user's alist to the default alist.
1011           (alist (append dired-guess-shell-alist-user           (alist (append dired-guess-shell-alist-user
1012                          dired-guess-shell-alist-default))                          dired-guess-shell-alist-default))

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26