Mercurial > emacs
changeset 80037:4318dfaeb2cb
*** empty log message ***
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 05 Feb 2008 11:44:25 +0000 |
parents | 61704c621a46 |
children | 322fda44015a |
files | lisp/ffap.el |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ffap.el Tue Feb 05 03:15:42 2008 +0000 +++ b/lisp/ffap.el Tue Feb 05 11:44:25 2008 +0000 @@ -426,7 +426,7 @@ ;; (ffap-machine-p "mathcs" 5678 nil 'ping) ;; (ffap-machine-p "foo.bonk" nil nil 'ping) ;; (ffap-machine-p "foo.bonk.com" nil nil 'ping) - (if (or (string-match "[^-[:alnum:].]" host) ; Illegal chars (?) + (if (or (string-match "[^-[:alnum:].]" host) ; Invalid chars (?) (not (string-match "[^0-9]" host))) ; 1: a number? 2: quick reject nil (let* ((domain