diff options
author | Bastien Guerry <bzg@altern.org> | 2011-07-06 20:56:39 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-07-06 20:56:39 +0200 |
commit | ff038caae59b42609e3c269e753932624a5725d5 (patch) | |
tree | b238eb0d9049dad6aba12b1611c6c024fcb82140 | |
parent | 737241402a9e7667de3b052dbe527acd6eb34141 (diff) | |
download | org-mode-ff038caae59b42609e3c269e753932624a5725d5.tar.gz |
Revert "Silence byte-compiler with a new alias: filter-buffer-substring-functions."
This reverts commit 5a2eec320712ee52d0e7b821c11efac3d6eaa96b.
The replacement of `buffer-substring-filters' by
`filter-buffer-substring-functions' requires some rewriting
of functions like `org-indent-remove-properties-from-string'.
-rw-r--r-- | lisp/org-agenda.el | 6 | ||||
-rw-r--r-- | lisp/org-indent.el | 8 | ||||
-rw-r--r-- | lisp/org-macs.el | 6 |
3 files changed, 7 insertions, 13 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ceefeec..934bdbc 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1763,11 +1763,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 'filter-buffer-substring-functions) - (org-set-local 'filter-buffer-substring-functions + (when (boundp 'buffer-substring-filters) + (org-set-local 'buffer-substring-filters (cons (lambda (x) (set-text-properties 0 (length x) nil x) x) - filter-buffer-substring-functions))) + buffer-substring-filters))) (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 dff66ef..fa89e9a 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 'filter-buffer-substring-functions) - (add-to-list 'filter-buffer-substring-functions + (make-local-variable 'buffer-substring-filters) + (add-to-list 'buffer-substring-filters '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 filter-buffer-substring-functions + (setq buffer-substring-filters (delq 'org-indent-remove-properties-from-string - filter-buffer-substring-functions)) + buffer-substring-filters)) (remove-hook 'org-after-promote-entry-hook 'org-indent-refresh-section 'local) (remove-hook 'org-after-demote-entry-hook diff --git a/lisp/org-macs.el b/lisp/org-macs.el index 02a2d62..6425977 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -367,12 +367,6 @@ The number of levels is controlled by `org-inlinetask-min-level'" (format-seconds string seconds) (format-time-string string (seconds-to-time seconds)))) -(unless (or (and (>= 24 emacs-major-version) - (>= 1 emacs-minor-version)) - (boundp 'filter-buffer-substring-functions)) - (defvaralias 'filter-buffer-substring-functions - 'buffer-substring-filters)) - (provide 'org-macs) ;; arch-tag: 7e6a73ce-aac9-4fc0-9b30-ce6f89dc6668 |