diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/net/eww.el | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d68d7ea88c2..343b225c029 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-01-05 Kenjiro NAKAYAMA <nakayamakenjiro@gmail.com> + + * net/eww.el (eww): Support single/double quote for search. + 2014-01-05 Paul Eggert <eggert@cs.ucla.edu> Fix misspelling of 'chinese' in rx (Bug#16237). diff --git a/lisp/net/eww.el b/lisp/net/eww.el index cb34a741248..fdd9982ff57 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -157,8 +157,9 @@ word(s) will be searched for via `eww-search-prefix'." (user-error "FTP is not supported.")) (t (if (and (= (length (split-string url)) 1) - (or (> (length (split-string url "\\.")) 1) - (string-match eww-local-regex url))) + (or (and (not (string-match-p "\\`[\"\'].*[\"\']\\'" url)) + (> (length (split-string url "\\.")) 1)) + (string-match eww-local-regex url))) (progn (unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url) (setq url (concat "http://" url))) |