org.el (org-open-file): Reveal context around point

* org.el (org-open-file): Reveal context around point when
opening a link to an Org file with a line number.

Thanks to François Pinard for suggesting this.
This commit is contained in:
Bastien Guerry 2013-11-05 00:05:33 +01:00
parent 6af8e429f8
commit e63b87a46f
1 changed files with 3 additions and 1 deletions

View File

@ -11086,7 +11086,9 @@ If the file does not exist, an error is thrown."
(eq cmd 'emacs))
(funcall (cdr (assq 'file org-link-frame-setup)) file)
(widen)
(if line (org-goto-line line)
(if line (progn (org-goto-line line)
(if (derived-mode-p 'org-mode)
(org-reveal)))
(if search (org-link-search search))))
((consp cmd)
(let ((file (convert-standard-filename file)))