diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2014-12-29 12:39:58 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2014-12-29 12:42:07 -0800 |
commit | 973110680c094b7a3bbcebbfbafb9abfc7adc8fd (patch) | |
tree | d4a329e7633a0e2e685c9cf2b7476a771de6006c /lisp/dnd.el | |
parent | f9acac751d4cd22480e62cc63936b1208ca9fe48 (diff) | |
download | emacs-973110680c094b7a3bbcebbfbafb9abfc7adc8fd.tar.gz |
Fix previous patch to match its commit message
Diffstat (limited to 'lisp/dnd.el')
-rw-r--r-- | lisp/dnd.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index 2b68b025ac1..3fda471497f 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -122,17 +122,17 @@ Return nil if URI is not a local file." ;; The hostname may be our hostname, in that case, convert to a local ;; file. Otherwise return nil. TODO: How about an IP-address as hostname? - (let ((system-name (system-name))) + (let ((sysname (system-name))) (let ((hostname (when (string-match "^file://\\([^/]*\\)" uri) (downcase (match-string 1 uri)))) - (system-name-no-dot - (downcase (if (string-match "^[^\\.]+" system-name) - (match-string 0 system-name) - system-name)))) + (sysname-no-dot + (downcase (if (string-match "^[^\\.]+" sysname) + (match-string 0 sysname) + sysname)))) (when (and hostname (or (string-equal "localhost" hostname) - (string-equal (downcase system-name) hostname) - (string-equal system-name-no-dot hostname))) + (string-equal (downcase sysname) hostname) + (string-equal sysname-no-dot hostname))) (concat "file://" (substring uri (+ 7 (length hostname)))))))) (defsubst dnd-unescape-uri (uri) |