tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Move obsolete declarations into "org-compat.el"

This commit is contained in:
Nicolas Goaziou 2018-05-10 15:41:50 +02:00
parent d94d52489d
commit 13fb6a3fae
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/org-capture.el
View File

@ -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

13
lisp/org-compat.el
View File

@ -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)

4
lisp/org-pcomplete.el
View File

@ -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)