diff options
| author | Glenn Morris | 2011-04-07 20:26:40 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-04-07 20:26:40 -0700 |
| commit | 3c4671f4096ef79964cd6b6722ea54108f67d248 (patch) | |
| tree | cb1a653f3cf65cc584e952bda38d38d883096843 | |
| parent | b605679c8e9d7bbf497bafce77a014eaa485fa34 (diff) | |
| download | emacs-3c4671f4096ef79964cd6b6722ea54108f67d248.tar.gz emacs-3c4671f4096ef79964cd6b6722ea54108f67d248.zip | |
browse-url.el trivia.
* lisp/net/browse-url.el (browse-url-firefox):
Test system-type, not system-configuration.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/net/browse-url.el | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e13e1e836d..dc9f6f83c5d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2011-04-08 Glenn Morris <rgm@gnu.org> | 1 | 2011-04-08 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * net/browse-url.el (browse-url-firefox): | ||
| 4 | Test system-type, not system-configuration. | ||
| 5 | |||
| 3 | * vc/log-edit.el (log-edit-empty-buffer-p): New function. | 6 | * vc/log-edit.el (log-edit-empty-buffer-p): New function. |
| 4 | (log-edit-insert-cvs-template, log-edit-insert-cvs-rcstemplate): | 7 | (log-edit-insert-cvs-template, log-edit-insert-cvs-rcstemplate): |
| 5 | Use log-edit-empty-buffer-p. (Bug#7598) | 8 | Use log-edit-empty-buffer-p. (Bug#7598) |
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 24dbfc0c30a..8f91fbb26b1 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -1111,8 +1111,7 @@ URL in a new window." | |||
| 1111 | browse-url-firefox-program | 1111 | browse-url-firefox-program |
| 1112 | (append | 1112 | (append |
| 1113 | browse-url-firefox-arguments | 1113 | browse-url-firefox-arguments |
| 1114 | (if (or (featurep 'dos-w32) | 1114 | (if (memq system-type '(windows-nt ms-dos)) |
| 1115 | (string-match "win32" system-configuration)) | ||
| 1116 | (list url) | 1115 | (list url) |
| 1117 | (list "-remote" | 1116 | (list "-remote" |
| 1118 | (concat "openURL(" | 1117 | (concat "openURL(" |