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

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

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

revision 1.101 by pot, Wed Apr 17 09:54:47 2002 UTC revision 1.102 by rms, Sun May 12 16:42:26 2002 UTC
# Line 2022  true then the type of the file linked to Line 2022  true then the type of the file linked to
2022    (interactive (list (dired-get-filename t) current-prefix-arg))    (interactive (list (dired-get-filename t) current-prefix-arg))
2023    (with-temp-buffer    (with-temp-buffer
2024      (if deref-symlinks      (if deref-symlinks
2025          (call-process "file" nil t t "-L" file)          (call-process "file" nil t t "-L" "--" file)
2026        (call-process "file" nil t t file))        (call-process "file" nil t t "--" file))
2027      (when (bolp)      (when (bolp)
2028        (backward-delete-char 1))        (backward-delete-char 1))
2029      (message (buffer-string))))      (message (buffer-string))))

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

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