Mercurial > emacs

comparison lisp/net/tramp.el @ 106508:8c836ea59444

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp.el (tramp-handle-insert-directory): Suppress error messages.
author Michael Albinus <michael.albinus@gmx.de>
date Wed, 09 Dec 2009 10:23:00 +0000
parents 9e96dbbd314e
children b0e5aae20733
comparison
equal deleted inserted replaced
106507:9506b5eee678 106508:8c836ea59444
4075 ;; If `full-directory-p', we just say `ls -l FILENAME'. 4075 ;; If `full-directory-p', we just say `ls -l FILENAME'.
4076 ;; Else we chdir to the parent directory, then say `ls -ld BASENAME'. 4076 ;; Else we chdir to the parent directory, then say `ls -ld BASENAME'.
4077 (if full-directory-p 4077 (if full-directory-p
4078 (tramp-send-command 4078 (tramp-send-command
4079 v 4079 v
4080 (format "%s %s %s" 4080 (format "%s %s %s 2>/dev/null"
4081 (tramp-get-ls-command v) 4081 (tramp-get-ls-command v)
4082 switches 4082 switches
4083 (if wildcard 4083 (if wildcard
4084 localname 4084 localname
4085 (tramp-shell-quote-argument (concat localname "."))))) 4085 (tramp-shell-quote-argument (concat localname ".")))))
4124 (while (< (point) end) 4124 (while (< (point) end)
4125 (let ((start (+ beg (read (current-buffer)))) 4125 (let ((start (+ beg (read (current-buffer))))
4126 (end (+ beg (read (current-buffer))))) 4126 (end (+ beg (read (current-buffer)))))
4127 (if (memq (char-after end) '(?\n ?\ )) 4127 (if (memq (char-after end) '(?\n ?\ ))
4128 ;; End is followed by \n or by " -> ". 4128 ;; End is followed by \n or by " -> ".
4129 (put-text-property start end 'dired-filename t))))) 4129 (put-text-property start end 'dired-filename t))))))
4130 ;; Remove trailing lines. 4130 ;; Remove trailing lines.
4131 (goto-char (tramp-compat-line-beginning-position)) 4131 (goto-char (tramp-compat-line-beginning-position))
4132 (while (looking-at "//") 4132 (while (looking-at "//")
4133 (forward-line 1) 4133 (forward-line 1)
4134 (delete-region (match-beginning 0) (point))))) 4134 (delete-region (match-beginning 0) (point)))
4135 (goto-char (point-max))))) 4135 (goto-char (point-max))))))
4136 4136
4137 (defun tramp-handle-unhandled-file-name-directory (filename) 4137 (defun tramp-handle-unhandled-file-name-directory (filename)
4138 "Like `unhandled-file-name-directory' for Tramp files." 4138 "Like `unhandled-file-name-directory' for Tramp files."
4139 ;; With Emacs 23, we could simply return `nil'. But we must keep it 4139 ;; With Emacs 23, we could simply return `nil'. But we must keep it
4140 ;; for backward compatibility. 4140 ;; for backward compatibility.