From: Carsten Dominik <carsten.dominik@gmail.com>
To: Bernt Hansen <bernt@norang.ca>
Cc: emacs-orgmode@gnu.org
Subject: Re: [PATCH] Open single link immediately
Date: Sun, 30 Aug 2009 10:09:39 +0200 [thread overview]
Message-ID: <9906B72A-15D5-4795-BE2F-0BFD799582D1@gmail.com> (raw)
In-Reply-To: <1251480180-9815-1-git-send-email-bernt@norang.ca>
This will be in the next push, when our repository is online again.
Thanks!
- Carsten
On Aug 28, 2009, at 7:23 PM, Bernt Hansen wrote:
> C-c C-o on a headline or in the agenda displays a menu of links to
> choose from. If there is only a single link then go there directly
> skipping the menu.
> ---
> This patch is available at git://git.norang.ca/org-mode.git for-
> carsten
>
> lisp/org.el | 31 ++++++++++++++++---------------
> 1 files changed, 16 insertions(+), 15 deletions(-)
>
> diff --git a/lisp/org.el b/lisp/org.el
> index a5181ab..f3d8976 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -8073,21 +8073,22 @@ needed for the interpretation of abbreviated
> links."
> (push (match-string 0) links))
> (setq links (reverse links))
> (unless links (error "No links"))
> -
> - (unless (and (integerp nth) (>= (length links) nth))
> - (save-excursion
> - (save-window-excursion
> - (delete-other-windows)
> - (with-output-to-temp-buffer "*Select Link*"
> - (princ "Select link\n\n")
> - (mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
> - links))
> - (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
> - (message "Select link to open:")
> - (setq c (read-char-exclusive))
> - (and (get-buffer "*Select Link*") (kill-buffer "*Select
> Link*"))))
> - (setq nth (- c ?0)))
> -
> + (if (eq 1 (length links))
> + (setq c 1)
> + (unless (and (integerp nth) (>= (length links) nth))
> + (save-excursion
> + (save-window-excursion
> + (delete-other-windows)
> + (with-output-to-temp-buffer "*Select Link*"
> + (princ "Select link\n\n")
> + (mapc (lambda (l) (princ (format "[%d] %s\n" (incf cnt) l)))
> + links))
> + (org-fit-window-to-buffer (get-buffer-window "*Select Link*"))
> + (message "Select link to open:")
> + (setq c (read-char-exclusive))
> + (and (get-buffer "*Select Link*") (kill-buffer "*Select
> Link*"))))))
> + (setq nth (- c ?0))
> +
> (unless (and (integerp nth) (>= (length links) nth))
> (error "Invalid link selection"))
> (setq link (nth (1- nth) links)
> --
> 1.6.4.1.331.gda1d56
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next prev parent reply other threads:[~2009-08-30 8:09 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-08-28 17:23 [PATCH] Open single link immediately Bernt Hansen
2009-08-30 8:09 ` Carsten Dominik [this message]
2009-08-30 14:27 ` Tim O'Callaghan
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=9906B72A-15D5-4795-BE2F-0BFD799582D1@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.