blob: 5d56329e7bd0a1bf775d00511f0aac6e366d6d39 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.980
retrieving revision 1.981
diff -u -r1.980 -r1.981
--- w3m.el 18 Jan 2004 14:36:43 -0000 1.980
+++ w3m.el 22 Jan 2004 08:00:20 -0000 1.981
@@ -3409,12 +3409,17 @@
"URL: "))
'w3m-url-completion nil nil initial
'w3m-input-url-history)))
- (if (string= "" url) (setq url default))
+ (when (string= "" url)
+ (setq url default))
;; remove duplication
(when (stringp url)
(setq w3m-input-url-history
(cons url (delete url w3m-input-url-history))))
- url)))
+ ;; The return value of this function must contain a scheme part.
+ (if (and (string-match w3m-url-components-regexp url)
+ (match-beginning 1))
+ url
+ (concat "http://" url)))))
;;; Cache:
|
GitWeb
