Mercurial > emacs
comparison lisp/net/tramp.el @ 87748:e958bc9885ca
* net/tramp.el (tramp-local-host-p): Use `tramp-file-name-host'
instead of `tramp-file-name-real-host'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Mon, 14 Jan 2008 19:36:07 +0000 |
| parents | 107ccd98fa12 |
| children | c49bc2860fd0 |
comparison
equal
deleted
inserted
replaced
| 87747:35fdb36e9ff1 | 87748:e958bc9885ca |
|---|---|
| 6729 "Return t if this is an out-of-band method, nil otherwise." | 6729 "Return t if this is an out-of-band method, nil otherwise." |
| 6730 (tramp-get-method-parameter (tramp-file-name-method vec) 'tramp-copy-program)) | 6730 (tramp-get-method-parameter (tramp-file-name-method vec) 'tramp-copy-program)) |
| 6731 | 6731 |
| 6732 (defun tramp-local-host-p (vec) | 6732 (defun tramp-local-host-p (vec) |
| 6733 "Return t if this points to the local host, nil otherwise." | 6733 "Return t if this points to the local host, nil otherwise." |
| 6734 (let ((host (tramp-file-name-real-host vec))) | 6734 ;; We cannot use `tramp-file-name-real-host'. A port is an |
| 6735 ;; indication for an ssh tunnel or alike. | |
| 6736 (let ((host (tramp-file-name-host vec))) | |
| 6735 (and | 6737 (and |
| 6736 (stringp host) | 6738 (stringp host) |
| 6737 (string-match | 6739 (string-match |
| 6738 (concat "^" (regexp-opt (list "localhost" (system-name)) t) "$") host)))) | 6740 (concat "^" (regexp-opt (list "localhost" (system-name)) t) "$") host)))) |
| 6739 | 6741 |