Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
378f9937
Commit
378f9937
authored
Aug 22, 2007
by
Stefan Monnier
Browse files
(browse-url-emacs): New function.
parent
ea26cc2e
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
25 additions
and
8 deletions
+25
-8
etc/NEWS
etc/NEWS
+2
-0
lisp/ChangeLog
lisp/ChangeLog
+5
-1
lisp/net/browse-url.el
lisp/net/browse-url.el
+18
-7
No files found.
etc/NEWS
View file @
378f9937
...
...
@@ -41,6 +41,8 @@ below. Emacs tries to warn you about these through `bad-packages-alist'.
* Changes in Emacs 22.2
** `browse-url-emacs' loads a URL into an Emacs buffer. Handy for *.el URLs.
** `bad-packages-alist' will warn about external packages that are known
to cause problems in this version of Emacs.
...
...
lisp/ChangeLog
View file @
378f9937
2007-08-22 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se>
* net/browse-url.el (browse-url-emacs): New function.
2007-08-22 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/bytecomp.el (byte-compile-from-buffer): Display a big fat
...
...
@@ -938,7 +942,7 @@
* lpr.el (lpr-page-header-switches): Move %s to separate element
for correct quoting. Doc fix.
2007-06-13 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se>
(tiny change)
2007-06-13 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se>
* term/xterm.el (terminal-init-xterm): Escape parens in character
constants.
lisp/net/browse-url.el
View file @
378f9937
...
...
@@ -669,8 +669,7 @@ interactively. Turn the filename into a URL with function
(
error
"Current buffer has no file"
))
(
let
((
buf
(
get-file-buffer
file
)))
(
if
buf
(
save-excursion
(
set-buffer
buf
)
(
with-current-buffer
buf
(
cond
((
not
(
buffer-modified-p
)))
(
browse-url-save-file
(
save-buffer
))
(
t
(
message
"%s modified since last save"
file
))))))
...
...
@@ -1170,6 +1169,20 @@ used instead of `browse-url-new-window-flag'."
browse-url-epiphany-program
(
append
browse-url-epiphany-startup-arguments
(
list
url
))))))
;;;###autoload
(
defun
browse-url-emacs
(
url
&optional
new-window
)
"Ask Emacs to load URL into a buffer and show it in another window."
(
interactive
(
browse-url-interactive-arg
"URL: "
))
(
require
'url-handlers
)
(
let
((
file-name-handler-alist
(
cons
(
cons
url-handler-regexp
'url-file-handler
)
file-name-handler-alist
)))
;; Ignore `new-window': with all other browsers the URL is always shown
;; in another window than the current Emacs one since it's shown in
;; another application's window.
;; (if new-window (find-file-other-window url) (find-file url))
(
find-file-other-window
url
)))
;;;###autoload
(
defun
browse-url-gnome-moz
(
url
&optional
new-window
)
"Ask Mozilla/Netscape to load URL via the GNOME program `gnome-moz-remote'.
...
...
@@ -1257,8 +1270,7 @@ Default to the URL around or before point. Runs the program in the
variable `browse-url-grail'."
(
interactive
(
browse-url-interactive-arg
"Grail URL: "
))
(
message
"Sending URL to Grail..."
)
(
save-excursion
(
set-buffer
(
get-buffer-create
" *Shell Command Output*"
))
(
with-current-buffer
(
get-buffer-create
" *Shell Command Output*"
)
(
erase-buffer
)
;; don't worry about this failing.
(
if
(
browse-url-maybe-new-window
new-window
)
...
...
@@ -1428,8 +1440,7 @@ used instead of `browse-url-new-window-flag'."
Default to the URL around or before point."
(
interactive
(
browse-url-interactive-arg
"MMM URL: "
))
(
message
"Sending URL to MMM..."
)
(
save-excursion
(
set-buffer
(
get-buffer-create
" *Shell Command Output*"
))
(
with-current-buffer
(
get-buffer-create
" *Shell Command Output*"
)
(
erase-buffer
)
;; mmm_remote just SEGVs if the file isn't there...
(
if
(
or
(
file-exists-p
(
expand-file-name
"~/.mmm_remote"
))
...
...
@@ -1507,5 +1518,5 @@ Default to the URL around or before point."
(
provide
'browse-url
)
;;
;
arch-tag: d2079573-5c06-4097-9598-f550fba19430
;; arch-tag: d2079573-5c06-4097-9598-f550fba19430
;;; browse-url.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment