# HG changeset patch # User Juanma Barranquero # Date 1202211865 0 # Node ID 4318dfaeb2cb622e8df696290ea50ac9cf819910 # Parent 61704c621a467f9967b7fda62836fc96131e753e *** empty log message *** diff -r 61704c621a46 -r 4318dfaeb2cb lisp/ffap.el --- 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