procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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