Mercurial > emacs

changeset 24126:8ebecccf46a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(browse-url-maybe-new-window): Delete macro and its uses.
author Dave Love <fx@gnu.org>
date Tue, 19 Jan 1999 19:57:33 +0000
parents 5c8305dd352f
children 250719d2b13b
files lisp/browse-url.el
diffstat 1 files changed, 8 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/browse-url.el	Tue Jan 19 19:53:06 1999 +0000
+++ b/lisp/browse-url.el	Tue Jan 19 19:57:33 1999 +0000
@@ -492,13 +492,6 @@
 	(not (eq (null browse-url-new-window-p)
 		 (null current-prefix-arg)))))
 
-;; interactive-p needs to be called at a function's top-level, hence
-;; the macro.
-(defmacro browse-url-maybe-new-window (arg)
-  `(if (interactive-p)
-       'arg
-     browse-url-new-window-p))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Browse current buffer
 
@@ -717,9 +710,7 @@
 			     (if new-window '("-noraise"))
 			     (list "-remote"
 				   (concat "openURL(" url
-					   (if (browse-url-maybe-new-window
-						new-window)
-					       ",new-window")
+					   (if new-window ",new-window")
 					   ")"))))))))
     (set-process-sentinel process
 			  (list 'lambda '(process change)
@@ -757,7 +748,6 @@
 
 ;;;###autoload
 (defun browse-url-mosaic (url &optional new-window)
-  ;; new-window ignored
   "Ask the XMosaic WWW browser to load URL.
 
 Default to the URL around or before point.  The strings in variable
@@ -785,9 +775,9 @@
 	(save-excursion
 	  (find-file (format "/tmp/Mosaic.%d" pid))
 	  (erase-buffer)
-	  (insert (if (browse-url-maybe-new-window new-window)
+	  (insert (if new-window
 		      "newwin\n"
-		      "goto\n")
+		    "goto\n")
 		  url "\n")
 	  (save-buffer)
 	  (kill-buffer nil)
@@ -852,7 +842,7 @@
   ;; Todo: start browser if fails
   (process-send-string "browse-url"
 		       (concat "get url (" url ") output "
-			       (if (browse-url-maybe-new-window new-window)
+			       (if new-window
 				   "new"
 				 "current")
 			       "\r\n"))
@@ -885,7 +875,7 @@
 used instead of `browse-url-new-window-p'."
   (interactive (browse-url-interactive-arg "W3 URL: "))
   (require 'w3)				; w3-fetch-other-window not autoloaded
-  (if (browse-url-maybe-new-window new-window)
+  (if new-window
       (w3-fetch-other-window url)
     (w3-fetch url)))
 
@@ -934,13 +924,13 @@
 	 (buf (get-buffer "*lynx*"))
 	 (proc (and buf (get-buffer-process buf)))
 	 (n browse-url-lynx-input-attempts))
-    (if (and (browse-url-maybe-new-window new-buffer) buf)
+    (if (and new-buffer buf)
 	;; Rename away the OLD buffer. This isn't very polite, but
 	;; term insists on working in a buffer named *lynx* and would
 	;; choke on *lynx*<1>
 	(progn (set-buffer buf)
 	       (rename-uniquely)))
-    (if (or (browse-url-maybe-new-window new-buffer)
+    (if (or new-buffer
 	    (not buf)
 	    (not proc)
 	    (not (memq (process-status proc) '(run stop))))
@@ -1019,7 +1009,7 @@
     (let ((to (if (string-match "^mailto:" url)
 		  (substring url 7)
 		url)))
-      (if (browse-url-maybe-new-window new-window)
+      (if new-window
 	  (compose-mail-other-window to nil nil nil
 				     (list 'insert-buffer (current-buffer)))
 	(compose-mail to nil nil nil nil