forked from mirrors/org-mode
Call buffer-substring-no-properties' and remove
org-no-properties'
* org-colview-xemacs.el (org-columns-display-here): Use `buffer-substring-no-properties' and remove `org-no-properties'. * org-colview.el (org-columns-display-here): Ditto. * org-table.el (org-table-eval-formula): Ditto. * org.el (org-entry-properties): Ditto.
This commit is contained in:
parent
7f6a127e46
commit
16ea0364a4
|
@ -305,10 +305,9 @@ This is the compiled version of the format.")
|
|||
(and (looking-at "\\(\\**\\)\\(\\* \\)")
|
||||
(org-get-level-face 2))))
|
||||
(item (save-match-data
|
||||
(org-no-properties
|
||||
(org-remove-tabs
|
||||
(buffer-substring-no-properties
|
||||
(point-at-bol) (point-at-eol))))))
|
||||
(org-remove-tabs
|
||||
(buffer-substring-no-properties
|
||||
(point-at-bol) (point-at-eol)))))
|
||||
(color (if (featurep 'xemacs)
|
||||
(save-excursion
|
||||
(beginning-of-line 1)
|
||||
|
|
|
@ -189,15 +189,13 @@ This is the compiled version of the format.")
|
|||
;; we'll clean it later…
|
||||
(if (derived-mode-p 'org-mode)
|
||||
(save-match-data
|
||||
(org-no-properties
|
||||
(org-remove-tabs
|
||||
(buffer-substring-no-properties
|
||||
(point-at-bol) (point-at-eol)))))
|
||||
(org-remove-tabs
|
||||
(buffer-substring-no-properties
|
||||
(point-at-bol) (point-at-eol))))
|
||||
;; In agenda, just get the `txt' property
|
||||
(org-no-properties
|
||||
(or (org-get-at-bol 'txt)
|
||||
(buffer-substring
|
||||
(point) (progn (end-of-line) (point)))))))
|
||||
(or (org-get-at-bol 'txt)
|
||||
(buffer-substring-no-properties
|
||||
(point) (progn (end-of-line) (point))))))
|
||||
(assoc property props))
|
||||
width (or (cdr (assoc property org-columns-current-maxwidths))
|
||||
(nth 2 column)
|
||||
|
|
|
@ -2501,8 +2501,7 @@ not overwrite the stored one."
|
|||
(setq orig (or (get-text-property 1 :orig-formula formula) "?"))
|
||||
(while (> ndown 0)
|
||||
(setq fields (org-split-string
|
||||
(org-no-properties
|
||||
(buffer-substring (point-at-bol) (point-at-eol)))
|
||||
(buffer-substring-no-properties (point-at-bol) (point-at-eol))
|
||||
" *| *"))
|
||||
;; replace fields with duration values if relevant
|
||||
(if duration
|
||||
|
|
|
@ -14450,11 +14450,10 @@ things up because then unnecessary parsing is avoided."
|
|||
(substring (org-match-string-no-properties 1)
|
||||
0 -1))
|
||||
string (if (equal key clockstr)
|
||||
(org-no-properties
|
||||
(org-trim
|
||||
(buffer-substring
|
||||
(match-beginning 3) (goto-char
|
||||
(point-at-eol)))))
|
||||
(org-trim
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 3) (goto-char
|
||||
(point-at-eol))))
|
||||
(substring (org-match-string-no-properties 3)
|
||||
1 -1)))
|
||||
;; Get the correct property name from the key. This is
|
||||
|
|
Loading…
Reference in a new issue