diff lisp/net/tramp-cache.el @ 84966:fa9dd0b54e54

* net/tramp.el (with-file-property, with-connection-property): Highlight as keyword. (tramp-rfn-eshadow-setup-minibuffer) (tramp-rfn-eshadow-update-overlay, tramp-handle-set-file-times) (tramp-set-file-uid-gid, tramp-do-copy-or-rename-file-via-buffer) (tramp-do-copy-or-rename-file-directly) (tramp-do-copy-or-rename-file-out-of-band) (tramp-handle-shell-command, tramp-get-debug-buffer) (tramp-send-command-and-read, tramp-equal-remote) (tramp-get-local-gid): Pacify byte-compiler. (tramp-handle-file-name-directory): Result shall not be expanded. (tramp-find-foreign-file-name-handler): Rewrite. (tramp-dissect-file-name): Add optional parameter NODEFAULT. * net/tramp-cache.el (tramp-cache-print): Pacify byte-compiler. * net/tramp-fish.el (tramp-fish-handle-expand-file-name): Apply `tramp-completion-mode-p'. (tramp-fish-handle-set-file-times) (tramp-fish-handle-executable-find) (tramp-fish-handle-process-file, tramp-fish-get-file-entries) (tramp-fish-retrieve-data): Pacify byte-compiler. * net/tramp-gw.el (tramp-gw-basic-authentication): Call `tramp-read-passwd' with first parameter `nil'.

--- a/lisp/net/tramp-cache.el	Fri Sep 28 07:10:50 2007 +0000
+++ b/lisp/net/tramp-cache.el	Fri Sep 28 16:05:49 2007 +0000
@@ -141,20 +141,20 @@
 (defun tramp-cache-print (table)
   "Prints hash table TABLE."
   (when (hash-table-p table)
-    (let (result tmp)
+    (let (result)
       (maphash
        '(lambda (key value)
-	  (setq tmp (format
-		     "(%s %s)"
-		     (if (processp key)
-			 (prin1-to-string (prin1-to-string key))
-		       (prin1-to-string key))
-		     (if (hash-table-p value)
-			 (tramp-cache-print value)
-		       (if (bufferp value)
-			   (prin1-to-string (prin1-to-string value))
-			 (prin1-to-string value))))
-		result (if result (concat result " " tmp) tmp)))
+	  (let ((tmp (format
+		      "(%s %s)"
+		      (if (processp key)
+			  (prin1-to-string (prin1-to-string key))
+			(prin1-to-string key))
+		      (if (hash-table-p value)
+			  (tramp-cache-print value)
+			(if (bufferp value)
+			    (prin1-to-string (prin1-to-string value))
+			  (prin1-to-string value))))))
+	    (setq result (if result (concat result " " tmp) tmp))))
        table)
       result)))