From 12fab222fbc8227811934c366c947e59b0324189 Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Wed, 26 Apr 2006 23:34:34 +0000 Subject: [PATCH] (bibtex-url): New optional arg no-browse. Return the URL or nil if none can be generated. --- lisp/textmodes/bibtex.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index e427346ebeb..e4f0a3db545 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -4331,11 +4331,12 @@ An error is signaled if point is outside key or BibTeX field." "\n") (goto-char endpos))) -(defun bibtex-url (&optional pos) +(defun bibtex-url (&optional pos no-browse) "Browse a URL for the BibTeX entry at point. Optional POS is the location of the BibTeX entry. The URL is generated using the schemes defined in `bibtex-generate-url-list' -\(see there\). Then the URL is passed to `browse-url'." +\(see there\). Then the URL is passed to `browse-url' unless NO-BROWSE is nil. +Return the URL or nil if none can be generated." (interactive) (save-excursion (if pos (goto-char pos)) @@ -4370,8 +4371,10 @@ The URL is generated using the schemes defined in `bibtex-generate-url-list' (error "Match failed: %s" field))) (if fmt (apply 'format fmt (nreverse obj)) (apply 'concat (nreverse obj))))) - (browse-url (message "%s" url)))) - (unless url (message "No URL known."))))) + (if (interactive-p) (message "%s" url)) + (unless no-browse (browse-url url)))) + (if (and (not url) (interactive-p)) (message "No URL known.")) + url))) ;; Make BibTeX a Feature -- 2.39.2