[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113530: * lisp/ffap.el (ffap-machine-p): Handle "no
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r113530: * lisp/ffap.el (ffap-machine-p): Handle "not known" response. |
Date: |
Wed, 24 Jul 2013 15:57:20 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113530
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14929
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-07-24 08:56:24 -0700
message:
* lisp/ffap.el (ffap-machine-p): Handle "not known" response.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/ffap.el ffap.el-20091113204419-o5vbwnq5f7feedwu-953
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-07-24 13:29:15 +0000
+++ b/lisp/ChangeLog 2013-07-24 15:56:24 +0000
@@ -1,3 +1,7 @@
+2013-07-24 Glenn Morris <address@hidden>
+
+ * ffap.el (ffap-machine-p): Handle "not known" response. (Bug#14929)
+
2013-07-24 Michael Albinus <address@hidden>
* filenotify.el (file-notify-supported-p):
=== modified file 'lisp/ffap.el'
--- a/lisp/ffap.el 2013-02-04 12:02:25 +0000
+++ b/lisp/ffap.el 2013-07-24 15:56:24 +0000
@@ -459,7 +459,8 @@
(let ((mesg (car (cdr error))))
(cond
;; v18:
- ((string-match "^Unknown host" mesg) nil)
+ ((string-match "\\(^Unknown host\\|Name or service not known$\\)"
+ mesg) nil)
((string-match "not responding$" mesg) mesg)
;; v19:
;; (file-error "connection failed" "permission denied"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113530: * lisp/ffap.el (ffap-machine-p): Handle "not known" response.,
Glenn Morris <=