mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 16:16:26 +00:00
Code Releases Activity

org.el (org-make-org-heading-search-string): Rewrite using org-element.el

Browse source 
* org.el (org-make-org-heading-search-string): Rewrite using
org-element.el.  Not an interactive function anymore.
This commit is contained in:
Bastien Guerry 2012-12-22 23:06:08 +01:00
parent 5987fd5f08
commit a0be28eeb6
1 changed files with 8 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/org.el
View file

@ -9136,23 +9136,15 @@ according to FMT (default from `org-email-link-description-format')."
(setq fmt (replace-match "from %f" t t fmt))))
(org-replace-escapes fmt table)))
(defun org-make-org-heading-search-string (&optional string heading)
"Make search string for STRING or current headline."
(interactive)
(let ((s (or string (org-get-heading)))
(defun org-make-org-heading-search-string (&optional string)
"Make search string for the current headline or STRING."
(let ((s (or string
(and (derived-mode-p 'org-mode)
(save-excursion
(org-back-to-heading t)
(plist-get (cadr (org-element-at-point))
:raw-value)))))
(lines org-context-in-file-links))
(unless (and string (not heading))
;; We are using a headline, clean up garbage in there.
(if (string-match org-todo-regexp s)
(setq s (replace-match "" t t s)))
(if (string-match (org-re ":[[:alnum:]_@#%:]+:[ \t]*$") s)
(setq s (replace-match "" t t s)))
(setq s (org-trim s))
(if (string-match (concat "^\\(" org-quote-string "\\|"
org-comment-string "\\)") s)
(setq s (replace-match "" t t s)))
(while (string-match org-ts-regexp s)
(setq s (replace-match "" t t s))))
(or string (setq s (concat "*" s))) ; Add * for headlines
(when (and string (integerp lines) (> lines 0))
(let ((slines (org-split-string s "\n")))