ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Globally replace buffer-substring-filters with filter-buffer-substring-functions." 

This reverts commit 66e8a4b09a.
This commit is contained in:
Eric Schulte 2011-06-16 10:29:24 -07:00
parent 12d51dad7b
commit fa59060617
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-agenda.el
View File

@ -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 'filter-buffer-substring-functions) (when (boundp 'buffer-substring-filters)
(org-set-local 'filter-buffer-substring-functions (org-set-local 'buffer-substring-filters
(cons (lambda (x) (cons (lambda (x)
(set-text-properties 0 (length x) nil x) x) (set-text-properties 0 (length x) nil x) x)
filter-buffer-substring-functions))) buffer-substring-filters)))
(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

8
lisp/org-indent.el
View File

@ -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 'filter-buffer-substring-functions) (make-local-variable 'buffer-substring-filters)
(add-to-list 'filter-buffer-substring-functions (add-to-list 'buffer-substring-filters
'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 filter-buffer-substring-functions (setq buffer-substring-filters
(delq 'org-indent-remove-properties-from-string (delq 'org-indent-remove-properties-from-string
filter-buffer-substring-functions)) buffer-substring-filters))
(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