Browse Source

Move obsolete declarations into "org-compat.el"

Nicolas Goaziou 7 years ago
parent
commit
13fb6a3fae
3 changed files with 10 additions and 8 deletions
  1. 0 1
      lisp/org-capture.el
  2. 10 3
      lisp/org-compat.el
  3. 0 4
      lisp/org-pcomplete.el

+ 0 - 1
lisp/org-capture.el

@@ -474,7 +474,6 @@ When LOCAL is set, use the local variable `org-capture-current-plist',
 this is necessary after initialization of the capture process,
 this is necessary after initialization of the capture process,
 to avoid conflicts with other active capture processes."
 to avoid conflicts with other active capture processes."
   (plist-get (if local org-capture-current-plist org-capture-plist) prop))
   (plist-get (if local org-capture-current-plist org-capture-plist) prop))
-(define-obsolete-function-alias 'org-capture-member 'org-capture-get "Org 9.2")
 
 
 ;;; The minor mode
 ;;; The minor mode
 
 

+ 10 - 3
lisp/org-compat.el

@@ -66,6 +66,13 @@
 (defvar org-table-tab-recognizes-table.el)
 (defvar org-table-tab-recognizes-table.el)
 (defvar org-table1-hline-regexp)
 (defvar org-table1-hline-regexp)
 
 
+
+;;; Emacs < 27.1 compatibility
+
+(unless (fboundp 'pcomplete-uniquify-list)
+  ;; The misspelled variant was made obsolete in Emacs 27.1
+  (defalias 'pcomplete-uniquify-list 'pcomplete-uniqify-list))
+
 
 
 ;;; Emacs < 26.1 compatibility
 ;;; Emacs < 26.1 compatibility
 
 
@@ -216,6 +223,9 @@ Counting starts at 1."
 (define-obsolete-function-alias 'org-activate-angle-links 'ignore "Org 9.0")
 (define-obsolete-function-alias 'org-activate-angle-links 'ignore "Org 9.0")
 (define-obsolete-function-alias 'org-get-indentation
 (define-obsolete-function-alias 'org-get-indentation
   'current-indentation "Org 9.2")
   'current-indentation "Org 9.2")
+(define-obsolete-function-alias 'org-capture-member 'org-capture-get "Org 9.2")
+(define-obsolete-function-alias 'org-remove-from-invisibility-spec
+  'remove-from-invisibility-spec "Org 9.2")
 
 
 (defun org-in-fixed-width-region-p ()
 (defun org-in-fixed-width-region-p ()
   "Non-nil if point in a fixed-width region."
   "Non-nil if point in a fixed-width region."
@@ -496,9 +506,6 @@ Unlike to `use-region-p', this function also checks
 
 
 ;;; Invisibility compatibility
 ;;; Invisibility compatibility
 
 
-(define-obsolete-function-alias 'org-remove-from-invisibility-spec 'remove-from-invisibility-spec
-  "Org 9.2")
-
 (defun org-in-invisibility-spec-p (arg)
 (defun org-in-invisibility-spec-p (arg)
   "Is ARG a member of `buffer-invisibility-spec'?"
   "Is ARG a member of `buffer-invisibility-spec'?"
   (when (consp buffer-invisibility-spec)
   (when (consp buffer-invisibility-spec)

+ 0 - 4
lisp/org-pcomplete.el

@@ -38,10 +38,6 @@
 (declare-function org-entry-properties "org" (&optional pom which))
 (declare-function org-entry-properties "org" (&optional pom which))
 (declare-function org-tag-alist-to-string "org" (alist &optional skip-key))
 (declare-function org-tag-alist-to-string "org" (alist &optional skip-key))
 
 
-(unless (fboundp 'pcomplete-uniquify-list)
-  ;; The misspelled variant was made obsolete in Emacs 27.1
-  (defalias 'pcomplete-uniquify-list 'pcomplete-uniqify-list))
-
 ;;;; Customization variables
 ;;;; Customization variables
 
 
 (defvar org-drawer-regexp)
 (defvar org-drawer-regexp)