diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2015-01-18 23:42:32 -0500 |
---|---|---|
committer | Aaron Ecay <aaronecay@gmail.com> | 2015-01-18 23:42:32 -0500 |
commit | 56bbacfd89bcdd773a20b102f956edc2aa5ff9d9 (patch) | |
tree | 9abfcbc6aa8bf300af484e009e43029be4cb202a | |
parent | d1c5dc2e41814f571e851cf5363e5c75f4f316ef (diff) | |
download | org-mode-56bbacfd89bcdd773a20b102f956edc2aa5ff9d9.tar.gz |
org-compat: obsolete org-activate-mark.
* lisp/org-compat.el (org-activate-mark): Make obsolete.
The activate-mark function was introduced in Emacs 23 and
org-activate-mark wasn’t called anywhere in the code base.
-rw-r--r-- | lisp/org-compat.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index f76b86c..8ff7c34 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -287,17 +287,8 @@ Works on both Emacs and XEmacs." (> (point) (region-beginning))) (exchange-point-and-mark))) -;; Emacs 22 misses `activate-mark' -(if (fboundp 'activate-mark) - (defalias 'org-activate-mark 'activate-mark) - (defun org-activate-mark () - (when (mark t) - (setq mark-active t) - (when (and (boundp 'transient-mark-mode) - (not transient-mark-mode)) - (setq transient-mark-mode 'lambda)) - (when (boundp 'zmacs-regions) - (setq zmacs-regions t))))) +;; Old alias for emacs 22 compatibility, now dropped +(define-obsolete-function-alias 'org-activate-mark 'activate-mark) ;; Invisibility compatibility |