mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(browse-url): Set DISPLAY to the one of the

Browse Source 
current frame, in case we're connected to several displays.
This commit is contained in:
Stefan Monnier 2006-12-08 03:17:10 +00:00
parent c2c93894ca
commit addc252e94
2 changed files with 27 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-12-08 Stefan Monnier <monnier@iro.umontreal.ca>
* net/browse-url.el (browse-url): Set DISPLAY to the one of the
current frame, in case we're connected to several displays.
2006-12-08 Juanma Barranquero <lekktu@gmail.com>
* frame.el (other-frame): Doc fix.
@ -20,9 +25,10 @@
2006-12-05 Kim F. Storm <storm@cua.dk>
* emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix.
(cua-paste-pop): Rework last change for cua-paste-pop-rotate-temporarily,
so first M-y and C-y works alike, pasting the head of the kill-ring, and
prefix arg C-u M-y inserts the text inserted by the last M-y command.
(cua-paste-pop): Rework last change for
cua-paste-pop-rotate-temporarily, so first M-y and C-y works alike,
pasting the head of the kill-ring, and prefix arg C-u M-y inserts the
text inserted by the last M-y command.
2006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org>
@ -39,8 +45,7 @@
* progmodes/fortran.el (fortran-mode-abbrev-table)
* progmodes/octave-mod.el (octave-abbrev-table)
* progmodes/sql.el (sql-mode-abbrev-table): Define abbrevs even
if abbrev-table is non-nil (saved user abbrevs may have been
restored).
if abbrev-table is non-nil (saved user abbrevs may have been restored).
* progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init): Do not
clear abbrev table, else saved abbrevs will not be restored.

28
lisp/net/browse-url.el
View File

@ -760,17 +760,23 @@ Prompts for a URL, defaulting to the URL at or before point. Variable
(interactive (browse-url-interactive-arg "URL: "))
(unless (interactive-p)
(setq args (or args (list browse-url-new-window-flag))))
(if (functionp browse-url-browser-function)
(apply browse-url-browser-function url args)
;; The `function' can be an alist; look down it for first match
;; and apply the function (which might be a lambda).
(catch 'done
(dolist (bf browse-url-browser-function)
(when (string-match (car bf) url)
(apply (cdr bf) url args)
(throw 'done t)))
(error "No browse-url-browser-function matching URL %s"
url))))
(let ((process-environment (copy-sequence process-environment)))
;; When connected to various displays, be careful to use the display of
;; the currently selected frame, rather than the original start display,
;; which may not even exist any more.
(if (stringp (frame-parameter (selected-frame) 'display))
(setenv "DISPLAY" (frame-parameter (selected-frame) 'display)))
(if (functionp browse-url-browser-function)
(apply browse-url-browser-function url args)
;; The `function' can be an alist; look down it for first match
;; and apply the function (which might be a lambda).
(catch 'done
(dolist (bf browse-url-browser-function)
(when (string-match (car bf) url)
(apply (cdr bf) url args)
(throw 'done t)))
(error "No browse-url-browser-function matching URL %s"
url)))))
;;;###autoload
(defun browse-url-at-point (&optional arg)