diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2011-06-14 12:45:19 -0700 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2011-06-14 12:45:19 -0700 |
| commit | 66e8a4b09af6a467fe2da891cf5bb814e8869106 (patch) | |
| tree | bfeead0c54ae089f0c73f9460fa72948cd23d674 | |
| parent | 94b325839c253ce2617e0213ed7e2cb1bb6880f9 (diff) | |
| download | org-mode-66e8a4b09af6a467fe2da891cf5bb814e8869106.tar.gz | |
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.
| -rw-r--r-- | lisp/org-agenda.el | 6 | ||||
| -rw-r--r-- | lisp/org-indent.el | 8 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d665b54..991a94a 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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 'pre-command-hook 'org-unhighlight nil 'local) ;; Make sure properties are removed when copying text - (when (boundp 'buffer-substring-filters) - (org-set-local 'buffer-substring-filters + (when (boundp 'filter-buffer-substring-functions) + (org-set-local 'filter-buffer-substring-functions (cons (lambda (x) (set-text-properties 0 (length x) nil x) x) - buffer-substring-filters))) + filter-buffer-substring-functions))) (unless org-agenda-keep-modes (setq org-agenda-follow-mode org-agenda-start-with-follow-mode org-agenda-entry-text-mode org-agenda-start-with-entry-text-mode diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 095e9ca..7fa8e16 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -157,8 +157,8 @@ FIXME: How to update when broken?" (org-set-local 'org-hide-leading-stars-before-indent-mode org-hide-leading-stars) (org-set-local 'org-hide-leading-stars t)) - (make-local-variable 'buffer-substring-filters) - (add-to-list 'buffer-substring-filters + (make-local-variable 'filter-buffer-substring-functions) + (add-to-list 'filter-buffer-substring-functions 'org-indent-remove-properties-from-string) (org-add-hook 'org-after-demote-entry-hook '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) (org-set-local 'org-hide-leading-stars org-hide-leading-stars-before-indent-mode)) - (setq buffer-substring-filters + (setq filter-buffer-substring-functions (delq 'org-indent-remove-properties-from-string - buffer-substring-filters)) + filter-buffer-substring-functions)) (remove-hook 'org-after-promote-entry-hook 'org-indent-refresh-section 'local) (remove-hook 'org-after-demote-entry-hook |