Read-only folders only work in VM 5, not in VM 4."
:type '(choice (const :tag "off" nil)
(const :tag "on" t)
- (sexp :tag "non-writable only" if-file-read-only))
+ (other :tag "non-writable only" if-file-read-only))
:group 'dired-x)
(defcustom dired-omit-files-p nil
:type 'boolean
:group 'dired-x)
-(defcustom dired-omit-size-limit 20000
+(defcustom dired-omit-size-limit 30000
"*Maximum size for the \"omitting\" feature.
If nil, there is no maximum size."
:type '(choice (const :tag "no maximum" nil) integer)
(if (and dired-omit-files-p
(or (interactive-p)
(not dired-omit-size-limit)
- (< (buffer-size) dired-omit-size-limit)))
+ (< (buffer-size) dired-omit-size-limit)
+ (progn
+ (message "Not omitting: directory larger than %d characters."
+ dired-omit-size-limit)
+ (setq dired-omit-files-p nil)
+ nil)))
(let ((omit-re (or regexp (dired-omit-regexp)))
(old-modified-p (buffer-modified-p))
count)
(defun dired-smart-shell-command (cmd &optional insert)
"Like function `shell-command', but in the current Tree Dired directory."
- (interactive "sShell command: \nP")
+ (interactive (list (read-from-minibuffer "Shell command: "
+ nil nil nil 'shell-command-history)
+ current-prefix-arg))
(let ((default-directory (default-directory)))
(shell-command cmd insert)))
" " dired-guess-shell-znew-switches))
;; gzip'ed archives
- (list "\\.t\\(ar\\.\\)g?z$"
+ (list "\\.t\\(ar\\.\\)?gz$"
'(if dired-guess-shell-gnutar
(concat dired-guess-shell-gnutar " zxvf")
(concat "gunzip -qc * | tar xvf -"))
;; Optional decompression.
'(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q" "")))
+ ;; bzip2'ed archives
+ (list "\\.tar\\.bz2$"
+ "bunzip2 -c * | tar xvf -"
+ ;; Optional decompression.
+ "bunzip2")
'("\\.shar.Z$" "zcat * | unshar")
'("\\.shar.g?z$" "gunzip -qc * | unshar")
;; Compression.
(list "\\.g?z$" '(concat "gunzip" (if dired-guess-shell-gzip-quiet " -q")))
+ (list "\\.bz2$" "bunzip2")
(list "\\.Z$" "uncompress"
;; Optional conversion to gzip format.
'(concat "znew" (if dired-guess-shell-gzip-quiet " -q")