mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(browse-url-file-url): Check for null maps.

Browse source
This commit is contained in:
Sam Steingold 2000-09-26 13:05:29 +00:00
parent c98863bfb9
commit 63900fcf00
2 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/net/browse-url.el
View file

@ -405,7 +405,7 @@ These might set its size, for instance."
:type '(repeat (string :tag "Argument"))
:group 'browse-url)
(defcustom browse-url-lynx-emacs-args (and (not window-system)
(defcustom browse-url-lynx-emacs-args (and (not window-system)
'("-show_cursor"))
"A list of strings defining options for Lynx in an Emacs buffer.
@ -540,14 +540,9 @@ Use variable `browse-url-filename-alist' to map filenames to URLs."
(while (string-match "[*\"()',=;? ]" file)
(let ((enc (format "%%%x" (aref file (match-beginning 0)))))
(setq file (replace-match enc t t file))))
(let ((maps browse-url-filename-alist))
(while maps
(let* ((map (car maps))
(from-re (car map))
(to-string (cdr map)))
(setq maps (cdr maps))
(and (string-match from-re file)
(setq file (replace-match to-string t nil file))))))
(dolist (map browse-url-filename-alist)
(when (and map (string-match (car map) file))
(setq file (replace-match (cdr map) t nil file))))
file)
;;;###autoload