Changeset 4200 for trunk/lisp/dired-x.el

Timestamp:

04/07/07 15:49:28 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/dired-x.el (modified) (2 diffs)

trunk/lisp/dired-x.el

@@ -46 +46 @@
-;;           (function (lambda ()
-;;                       (load "dired-x")
-global 
+
-;;                       ;; (setq dired-guess-shell-gnutar "gtar")
-;;                       )))
-;; (add-hook 'dired-mode-hook
-;;           (function (lambda ()
-;;                       ;; Set buffer-local variables here.  For example:
-;;                       ;; (dired-omit-mode 1)
-;;                       )))
@@ -1131 +1127 @@
-  :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'."
-
-dired-guess-shell-case-fold-search
+t
-         ;; Prepend the user's alist to the default alist.
-         (alist (append dired-guess-shell-alist-user