|
@@ -9758,13 +9758,18 @@ the window configuration before `org-open-at-point' was called using:
|
|
|
(set-window-configuration org-window-config-before-follow-link)")
|
|
|
|
|
|
(defvar org-link-search-inhibit-query nil) ;; dynamically scoped
|
|
|
-(defun org-link-search (s &optional type avoid-pos)
|
|
|
+(defun org-link-search (s &optional type avoid-pos stealth)
|
|
|
"Search for a link search option.
|
|
|
If S is surrounded by forward slashes, it is interpreted as a
|
|
|
regular expression. In org-mode files, this will create an `org-occur'
|
|
|
sparse tree. In ordinary files, `occur' will be used to list matches.
|
|
|
If the current buffer is in `dired-mode', grep will be used to search
|
|
|
-in all files. If AVOID-POS is given, ignore matches near that position."
|
|
|
+in all files. If AVOID-POS is given, ignore matches near that position.
|
|
|
+
|
|
|
+When optional argument STEALTH is non-nil, do not modify
|
|
|
+visibility around point, thus ignoring
|
|
|
+`org-show-hierarchy-above', `org-show-following-heading' and
|
|
|
+`org-show-siblings' variables."
|
|
|
(let ((case-fold-search t)
|
|
|
(s0 (mapconcat 'identity (org-split-string s "[ \t\r\n]+") " "))
|
|
|
(markers (concat "\\(?:" (mapconcat (lambda (x) (regexp-quote (car x)))
|
|
@@ -9888,7 +9893,9 @@ in all files. If AVOID-POS is given, ignore matches near that position."
|
|
|
(goto-char (match-beginning 1))
|
|
|
(goto-char pos)
|
|
|
(error "No match"))))))
|
|
|
- (and (eq major-mode 'org-mode) (org-show-context 'link-search))
|
|
|
+ (and (eq major-mode 'org-mode)
|
|
|
+ (not stealth)
|
|
|
+ (org-show-context 'link-search))
|
|
|
type))
|
|
|
|
|
|
(defun org-search-not-self (group &rest args)
|