Commit 63900fcf authored by Sam Steingold's avatar Sam Steingold
Browse files

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

parent c98863bf
2000-09-25 Sam Steingold <sds@gnu.org>
* net/browse-url.el (browse-url-file-url): Check for null maps.
2000-09-26 Gerd Moellmann <gerd@gnu.org> 2000-09-26 Gerd Moellmann <gerd@gnu.org>
* frame.el (frame-notice-user-settings): Make tool-bar-mode and * frame.el (frame-notice-user-settings): Make tool-bar-mode and
...@@ -10,9 +14,9 @@ ...@@ -10,9 +14,9 @@
* bytecomp.el (byte-compile-defvar-or-defconst): Only cons onto * bytecomp.el (byte-compile-defvar-or-defconst): Only cons onto
current-load-list in top-level forms. Else this leaks a cons cell current-load-list in top-level forms. Else this leaks a cons cell
every time a defun is called. every time a defun is called.
* mail/mail-utils.el (rmail-dont-reply-to): Fix last change. * mail/mail-utils.el (rmail-dont-reply-to): Fix last change.
2000-09-25 Dave Love <fx@gnu.org> 2000-09-25 Dave Love <fx@gnu.org>
* startup.el (fancy-splash-head): Check XPM is available. * startup.el (fancy-splash-head): Check XPM is available.
...@@ -32,10 +36,10 @@ ...@@ -32,10 +36,10 @@
* mail/mail-utils.el (rmail-dont-reply-to): Avoid infinite loop if * mail/mail-utils.el (rmail-dont-reply-to): Avoid infinite loop if
rmail-dont-reply-to-names matches the empty string. rmail-dont-reply-to-names matches the empty string.
2000-09-25 Gerd Moellmann <gerd@gnu.org> 2000-09-25 Gerd Moellmann <gerd@gnu.org>
* startup.el (command-line-1, fancy-splash-text): Change the * startup.el (command-line-1, fancy-splash-text): Change the
text to sound more friendly. text to sound more friendly.
2000-09-23 Thien-Thi Nguyen <ttn@gnu.org> 2000-09-23 Thien-Thi Nguyen <ttn@gnu.org>
......
...@@ -405,7 +405,7 @@ These might set its size, for instance." ...@@ -405,7 +405,7 @@ These might set its size, for instance."
:type '(repeat (string :tag "Argument")) :type '(repeat (string :tag "Argument"))
:group 'browse-url) :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")) '("-show_cursor"))
"A list of strings defining options for Lynx in an Emacs buffer. "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." ...@@ -540,14 +540,9 @@ Use variable `browse-url-filename-alist' to map filenames to URLs."
(while (string-match "[*\"()',=;? ]" file) (while (string-match "[*\"()',=;? ]" file)
(let ((enc (format "%%%x" (aref file (match-beginning 0))))) (let ((enc (format "%%%x" (aref file (match-beginning 0)))))
(setq file (replace-match enc t t file)))) (setq file (replace-match enc t t file))))
(let ((maps browse-url-filename-alist)) (dolist (map browse-url-filename-alist)
(while maps (when (and map (string-match (car map) file))
(let* ((map (car maps)) (setq file (replace-match (cdr map) t nil file))))
(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))))))
file) file)
;;;###autoload ;;;###autoload
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment