forked from mirrors/org-mode
Globally replace buffer-substring-filters with filter-buffer-substring-functions.
* lisp/org-agenda.el (org-agenda-mode): Globally replace buffer-substring-filters with filter-buffer-substring-functions. * lisp/org-indent.el (org-indent-mode): Globally replace buffer-substring-filters with filter-buffer-substring-functions.
This commit is contained in:
parent
94b325839c
commit
66e8a4b09a
|
@ -1759,11 +1759,11 @@ The following commands are available:
|
||||||
(org-add-hook 'post-command-hook 'org-agenda-post-command-hook nil 'local)
|
(org-add-hook 'post-command-hook 'org-agenda-post-command-hook nil 'local)
|
||||||
(org-add-hook 'pre-command-hook 'org-unhighlight nil 'local)
|
(org-add-hook 'pre-command-hook 'org-unhighlight nil 'local)
|
||||||
;; Make sure properties are removed when copying text
|
;; Make sure properties are removed when copying text
|
||||||
(when (boundp 'buffer-substring-filters)
|
(when (boundp 'filter-buffer-substring-functions)
|
||||||
(org-set-local 'buffer-substring-filters
|
(org-set-local 'filter-buffer-substring-functions
|
||||||
(cons (lambda (x)
|
(cons (lambda (x)
|
||||||
(set-text-properties 0 (length x) nil x) x)
|
(set-text-properties 0 (length x) nil x) x)
|
||||||
buffer-substring-filters)))
|
filter-buffer-substring-functions)))
|
||||||
(unless org-agenda-keep-modes
|
(unless org-agenda-keep-modes
|
||||||
(setq org-agenda-follow-mode org-agenda-start-with-follow-mode
|
(setq org-agenda-follow-mode org-agenda-start-with-follow-mode
|
||||||
org-agenda-entry-text-mode org-agenda-start-with-entry-text-mode
|
org-agenda-entry-text-mode org-agenda-start-with-entry-text-mode
|
||||||
|
|
|
@ -157,8 +157,8 @@ FIXME: How to update when broken?"
|
||||||
(org-set-local 'org-hide-leading-stars-before-indent-mode
|
(org-set-local 'org-hide-leading-stars-before-indent-mode
|
||||||
org-hide-leading-stars)
|
org-hide-leading-stars)
|
||||||
(org-set-local 'org-hide-leading-stars t))
|
(org-set-local 'org-hide-leading-stars t))
|
||||||
(make-local-variable 'buffer-substring-filters)
|
(make-local-variable 'filter-buffer-substring-functions)
|
||||||
(add-to-list 'buffer-substring-filters
|
(add-to-list 'filter-buffer-substring-functions
|
||||||
'org-indent-remove-properties-from-string)
|
'org-indent-remove-properties-from-string)
|
||||||
(org-add-hook 'org-after-demote-entry-hook
|
(org-add-hook 'org-after-demote-entry-hook
|
||||||
'org-indent-refresh-section nil 'local)
|
'org-indent-refresh-section nil 'local)
|
||||||
|
@ -177,9 +177,9 @@ FIXME: How to update when broken?"
|
||||||
(when (boundp 'org-hide-leading-stars-before-indent-mode)
|
(when (boundp 'org-hide-leading-stars-before-indent-mode)
|
||||||
(org-set-local 'org-hide-leading-stars
|
(org-set-local 'org-hide-leading-stars
|
||||||
org-hide-leading-stars-before-indent-mode))
|
org-hide-leading-stars-before-indent-mode))
|
||||||
(setq buffer-substring-filters
|
(setq filter-buffer-substring-functions
|
||||||
(delq 'org-indent-remove-properties-from-string
|
(delq 'org-indent-remove-properties-from-string
|
||||||
buffer-substring-filters))
|
filter-buffer-substring-functions))
|
||||||
(remove-hook 'org-after-promote-entry-hook
|
(remove-hook 'org-after-promote-entry-hook
|
||||||
'org-indent-refresh-section 'local)
|
'org-indent-refresh-section 'local)
|
||||||
(remove-hook 'org-after-demote-entry-hook
|
(remove-hook 'org-after-demote-entry-hook
|
||||||
|
|
Loading…
Reference in a new issue