mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-12 17:10:43 -08:00
Code Issues Projects Releases Wiki Activity

* net/tramp.el (tramp-handle-insert-directory): Suppress error messages.

Browse source
This commit is contained in:
Michael Albinus 2009-12-09 10:23:00 +00:00
parent 020335dfbf
commit fe5facd3c0
2 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-12-09 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-insert-directory): Suppress error messages.
2009-12-09 Dan Nicolaescu <dann@ics.uci.edu> 2009-12-09 Dan Nicolaescu <dann@ics.uci.edu>
Fix short log parsing and fontification. Fix short log parsing and fontification.

16
lisp/net/tramp.el
View file

@ -4077,7 +4077,7 @@ This is like `dired-recursive-delete-directory' for Tramp files."
(if full-directory-p (if full-directory-p
(tramp-send-command (tramp-send-command
v v
(format "%s %s %s" (format "%s %s %s 2>/dev/null"
(tramp-get-ls-command v) (tramp-get-ls-command v)
switches switches
(if wildcard (if wildcard
@ -4126,13 +4126,13 @@ This is like `dired-recursive-delete-directory' for Tramp files."
(end (+ beg (read (current-buffer))))) (end (+ beg (read (current-buffer)))))
(if (memq (char-after end) '(?\n ?\ )) (if (memq (char-after end) '(?\n ?\ ))
;; End is followed by \n or by " -> ". ;; End is followed by \n or by " -> ".
(put-text-property start end 'dired-filename t))))) (put-text-property start end 'dired-filename t))))))
;; Remove trailing lines. ;; Remove trailing lines.
(goto-char (tramp-compat-line-beginning-position)) (goto-char (tramp-compat-line-beginning-position))
(while (looking-at "//") (while (looking-at "//")
(forward-line 1) (forward-line 1)
(delete-region (match-beginning 0) (point))))) (delete-region (match-beginning 0) (point)))
(goto-char (point-max))))) (goto-char (point-max))))))
(defun tramp-handle-unhandled-file-name-directory (filename) (defun tramp-handle-unhandled-file-name-directory (filename)
"Like `unhandled-file-name-directory' for Tramp files." "Like `unhandled-file-name-directory' for Tramp files."