[Emacs-diffs] emacs/lisp dired-aux.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/08/25 08:47:39

Modified files:
        lisp           : dired-aux.el 

Log message:
        * dired-aux.el (dired-show-file-type): Let-bind
        `process-file-side-effects' with nil.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired-aux.el?cvsroot=emacs&r1=1.190&r2=1.191

Patches:
Index: dired-aux.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -b -r1.190 -r1.191
--- dired-aux.el        5 Jul 2009 08:31:37 -0000       1.190
+++ dired-aux.el        25 Aug 2009 08:47:39 -0000      1.191
@@ -2427,13 +2427,14 @@
 If FILE is a symbolic link and the optional argument DEREF-SYMLINKS is
 true then the type of the file linked to by FILE is printed instead."
   (interactive (list (dired-get-filename t) current-prefix-arg))
+  (let (process-file-side-effects)
   (with-temp-buffer
     (if deref-symlinks
        (process-file "file" nil t t "-L" "--" file)
       (process-file "file" nil t t "--" file))
     (when (bolp)
       (backward-delete-char 1))
-    (message "%s" (buffer-string))))
+      (message "%s" (buffer-string)))))
 
 (provide 'dired-aux)