diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 57f37c6f2..88b7acba4 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2441,10 +2441,6 @@ file's directory then expand relative links." (defvar org-babel-capitalize-example-region-markers nil "Make true to capitalize begin/end example markers inserted by code blocks.") -(define-obsolete-function-alias - 'org-babel-examplize-region - 'org-babel-examplify-region "25.1") - (defun org-babel-examplify-region (beg end &optional results-switches inline) "Comment out region using the inline `==' or `: ' org example quote." (interactive "*r") @@ -2913,8 +2909,6 @@ can be specified as the REGEXP argument." (setq string (substring string 0 -1))) string)) -(define-obsolete-function-alias 'org-babel-trim 'org-trim "Org 9.0") - (defun org-babel-local-file-name (file) "Return the local name component of FILE." (or (file-remote-p file 'localname) file)) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 37b8b12cd..b47f8b6cb 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -998,8 +998,6 @@ you want to use two-columns display (see `org-agenda-menu-two-columns')." :version "24.1" :type 'boolean) -(define-obsolete-variable-alias 'org-agenda-menu-two-column 'org-agenda-menu-two-columns "24.3") - (defcustom org-agenda-menu-two-columns nil "Non-nil means, use two columns to show custom commands in the dispatcher. If you use this, you probably want to set `org-agenda-menu-show-matcher' @@ -1008,7 +1006,6 @@ to nil." :version "24.1" :type 'boolean) -(define-obsolete-variable-alias 'org-finalize-agenda-hook 'org-agenda-finalize-hook "24.3") (defcustom org-agenda-finalize-hook nil "Hook run just before displaying an agenda buffer. The buffer is still writable when the hook is called. @@ -1125,16 +1122,6 @@ option will be ignored." :group 'org-agenda-windows :type 'boolean) -(defcustom org-agenda-ndays nil - "Number of days to include in overview display. -Should be 1 or 7. -Obsolete, see `org-agenda-span'." - :group 'org-agenda-daily/weekly - :type '(choice (const nil) - (integer))) - -(make-obsolete-variable 'org-agenda-ndays 'org-agenda-span "24.1") - (defcustom org-agenda-span 'week "Number of days to include in overview display. Can be day, week, month, year, or any number of days. @@ -4221,8 +4208,7 @@ items if they have an hour specification like [h]h:mm." (setq start-day (time-to-days (org-read-date nil t start-day)))) (org-compile-prefix-format 'agenda) (org-set-sorting-strategy 'agenda) - (let* ((span (org-agenda-ndays-to-span - (or span org-agenda-ndays org-agenda-span))) + (let* ((span (org-agenda-ndays-to-span (or span org-agenda-span))) (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) @@ -7851,7 +7837,7 @@ Negative selection means regexp must not match for selection of an entry." (tdpos (goto-char tdpos)) ((eq org-agenda-type 'agenda) (let* ((sd (org-agenda-compute-starting-span - (org-today) (or curspan org-agenda-ndays org-agenda-span))) + (org-today) (or curspan org-agenda-span))) (org-agenda-overriding-arguments args)) (setf (nth 1 org-agenda-overriding-arguments) sd) (org-agenda-redo) @@ -7980,7 +7966,7 @@ With prefix ARG, go backward that many times the current span." (defun org-agenda-reset-view () "Switch to default view for agenda." (interactive) - (org-agenda-change-time-span (or org-agenda-ndays org-agenda-span))) + (org-agenda-change-time-span org-agenda-span)) (defun org-agenda-day-view (&optional day-of-month) "Switch to daily view for agenda. With argument DAY-OF-MONTH, switch to that day of the month." @@ -8324,9 +8310,6 @@ When called with a prefix argument, include all archive files as well." (if org-agenda-clockreport-mode " Clock" ""))) (force-mode-line-update)) -(define-obsolete-function-alias - 'org-agenda-post-command-hook 'org-agenda-update-agenda-type "24.3") - (defun org-agenda-update-agenda-type () "Update the agenda type after each command." (setq org-agenda-type @@ -10182,7 +10165,6 @@ days as returned by `calendar-absolute-from-gregorian' or when defining today." (eq (org-today) (if (consp date) (calendar-absolute-from-gregorian date) date))) -(define-obsolete-function-alias 'org-agenda-todayp 'org-agenda-today-p "25.1") (defun org-agenda-todo-yesterday (&optional arg) "Like `org-agenda-todo' but the time of change will be 23:59 of yesterday." diff --git a/lisp/org-clock.el b/lisp/org-clock.el index dce7edfe0..53dc0a214 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -237,9 +237,6 @@ file name Play this sound file, fall back to beep" (const :tag "Standard beep" t) (file :tag "Play sound file"))) -(define-obsolete-variable-alias 'org-clock-modeline-total - 'org-clock-mode-line-total "24.3") - (defcustom org-clock-mode-line-total 'auto "Default setting for the time included for the mode line clock. This can be overruled locally using the CLOCK_MODELINE_TOTAL property. diff --git a/lisp/org-colview.el b/lisp/org-colview.el index d26f16a36..a856a240c 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1497,9 +1497,6 @@ PARAMS is a property list of parameters: (id))))) (org-update-dblock)) -(define-obsolete-function-alias 'org-insert-columns-dblock - 'org-columns-insert-dblock "Org 9.0") - ;;; Column view in the agenda diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 85a02c696..70a293223 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -52,11 +52,10 @@ (defalias 'gui-get-selection 'x-get-selection))) -;;; Obsolete aliases (remove them the next major release). - -(define-obsolete-function-alias 'org-activate-mark 'activate-mark) +;;; Obsolete aliases (remove them once the next major release is released). ;;;; XEmacs compatibility, now removed. +(define-obsolete-function-alias 'org-activate-mark 'activate-mark) (define-obsolete-function-alias 'org-add-hook 'add-hook "Org 9.0") (define-obsolete-function-alias 'org-bound-and-true-p 'bound-and-true-p "Org 9.0") (define-obsolete-function-alias 'org-decompose-region 'decompose-region "Org 9.0") @@ -99,11 +98,96 @@ (define-obsolete-function-alias 'org-pop-to-buffer-same-window 'pop-to-buffer-same-window "Org 9.0") (define-obsolete-function-alias 'org-string-match-p 'string-match-p "Org 9.0") -;;;; Variables declared obsolete. +;;;; Functions and variables from previous releases now obsolete. +(define-obsolete-function-alias 'org-element-remove-indentation + 'org-remove-indentation "Org 9.0") (define-obsolete-variable-alias 'org-hierarchical-checkbox-statistics 'org-checkbox-hierarchical-statistics "Org 8.0") (define-obsolete-variable-alias 'org-description-max-indent 'org-list-description-max-indent "Org 8.0") +(define-obsolete-variable-alias 'org-latex-create-formula-image-program + 'org-preview-latex-default-process "Org 9.0") +(define-obsolete-variable-alias 'org-latex-preview-ltxpng-directory + 'org-preview-latex-image-directory "Org 9.0") +(define-obsolete-function-alias 'org-table-p 'org-at-table-p "Org 9.0") +(define-obsolete-function-alias 'org-on-heading-p 'org-at-heading-p "Org 9.0") +(define-obsolete-function-alias 'org-at-regexp-p 'org-in-regexp "Org 8.3") +(define-obsolete-function-alias 'org-speed-command-default-hook + 'org-speed-command-activate "Org 8.0") +(define-obsolete-function-alias 'org-babel-speed-command-hook + 'org-babel-speed-command-activate "Org 8.0") +(define-obsolete-function-alias 'org-image-file-name-regexp + 'image-file-name-regexp "Org 9.0") +(define-obsolete-function-alias 'org-get-legal-level + 'org-get-valid-level "Org 7.8") +(define-obsolete-function-alias 'org-completing-read-no-i + 'completing-read "Org 9.0") +(define-obsolete-function-alias 'org-icompleting-read + 'completing-read "Org 9.0") +(define-obsolete-function-alias 'org-iread-file-name 'read-file-name "Org 9.0") +(define-obsolete-function-alias 'org-days-to-time + 'org-time-stamp-to-now "Org 8.2") +(define-obsolete-variable-alias 'org-agenda-ignore-drawer-properties + 'org-agenda-ignore-properties "Org 9.0") +(define-obsolete-function-alias 'org-preview-latex-fragment + 'org-toggle-latex-fragment "Org 8.3") +(define-obsolete-function-alias 'org-display-inline-modification-hook + 'org-display-inline-remove-overlay "Org 8.0") +(define-obsolete-function-alias 'org-export-get-genealogy + 'org-element-lineage "Org 9.0") +(define-obsolete-variable-alias 'org-latex-with-hyperref + 'org-latex-hyperref-template "Org 9.0") +(define-obsolete-variable-alias 'org-link-to-org-use-id + 'org-id-link-to-org-use-id "Org 8.0") +(define-obsolete-variable-alias 'hfy-optimisations 'hfy-optimizations "Org 9.0") +(define-obsolete-variable-alias 'org-clock-modeline-total + 'org-clock-mode-line-total "Org 8.0") +(define-obsolete-function-alias 'org-protocol-unhex-compound + 'org-link-unescape-compound "Org 7.8") +(define-obsolete-function-alias 'org-protocol-unhex-string + 'org-link-unescape "Org 7.8") +(define-obsolete-function-alias 'org-protocol-unhex-single-byte-sequence + 'org-link-unescape-single-byte-sequence "Org 7.8") +(define-obsolete-variable-alias 'org-export-htmlized-org-css-url + 'org-org-htmlized-css-url "Org 8.2") +(define-obsolete-variable-alias 'org-alphabetical-lists + 'org-list-allow-alphabetical "Org 8.0") +(define-obsolete-function-alias 'org-list-parse-list 'org-list-to-lisp "Org 9.0") +(define-obsolete-variable-alias 'org-agenda-menu-two-column + 'org-agenda-menu-two-columns "Org 8.0") +(define-obsolete-variable-alias 'org-finalize-agenda-hook + 'org-agenda-finalize-hook "Org 8.0") +(make-obsolete-variable 'org-agenda-ndays 'org-agenda-span "Org 7.8") +(define-obsolete-function-alias 'org-agenda-post-command-hook + 'org-agenda-update-agenda-type "Org 8.0") +(define-obsolete-function-alias 'org-agenda-todayp + 'org-agenda-today-p "Org 9.0") +(define-obsolete-function-alias 'org-babel-examplize-region + 'org-babel-examplify-region "Org 9.0") +(define-obsolete-function-alias 'org-babel-trim 'org-trim "Org 9.0") +(define-obsolete-variable-alias 'org-html-style-include-scripts + 'org-html-head-include-scripts "Org 8.0") +(define-obsolete-variable-alias 'org-html-style-include-default + 'org-html-head-include-default-style "Org 8.0") +(define-obsolete-variable-alias 'org-html-style 'org-html-head "24.4") +(define-obsolete-function-alias 'org-insert-columns-dblock + 'org-columns-insert-dblock "Org 9.0") + +(make-obsolete-variable + 'org-read-date-minibuffer-setup-hook + "Set `org-read-date-minibuffer-local-map' instead." "24.4") +(defcustom org-read-date-minibuffer-setup-hook nil + "Hook to be used to set up keys for the date/time interface. +Add key definitions to `minibuffer-local-map', which will be a +temporary copy. + +WARNING: This option is obsolete, you should use +`org-read-date-minibuffer-local-map' to set up keys." + :group 'org-time + :type 'hook) + + +;;; Miscellaneous functions (defun org-compatible-face (inherits specs) "Make a compatible face specification. @@ -139,9 +223,6 @@ is, use SPECS to define the face." t)) t))) - -;;; Miscellaneous functions - (defun org-get-x-clipboard (value) "Get the value of the X or Windows clipboard." (cond ((eq window-system 'x) diff --git a/lisp/org-element.el b/lisp/org-element.el index 7c57b35ba..269bc7d80 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -6041,10 +6041,6 @@ end of ELEM-A." (move-overlay (car o) (- (nth 1 o) offset) (- (nth 2 o) offset)))) (goto-char (org-element-property :end elem-B))))) -;; For backward-compatibility with Org <= 8.3 -(define-obsolete-function-alias - 'org-element-remove-indentation 'org-remove-indentation "25.1") - (provide 'org-element) diff --git a/lisp/org-id.el b/lisp/org-id.el index 1a5b07093..2646c80b3 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -81,8 +81,6 @@ :tag "Org ID" :group 'org) -(define-obsolete-variable-alias - 'org-link-to-org-use-id 'org-id-link-to-org-use-id "24.3") (defcustom org-id-link-to-org-use-id nil "Non-nil means storing a link to an Org file will use entry IDs. \\\ diff --git a/lisp/org-list.el b/lisp/org-list.el index fbc53aa83..129d554aa 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -244,8 +244,6 @@ interface or run the following code after updating it: :set (lambda (var val) (set var val) (when (featurep 'org-element) (org-element-update-syntax)))) -(define-obsolete-variable-alias 'org-alphabetical-lists - 'org-list-allow-alphabetical "24.4") ; Since 8.0 (defcustom org-list-allow-alphabetical nil "Non-nil means single character alphabetical bullets are allowed. @@ -3022,8 +3020,6 @@ Point is left at list's end." (delete-region top bottom) (when (and (not (looking-at "[ \t]*$")) (looking-at org-list-end-re)) (replace-match "")))))) -(define-obsolete-function-alias - 'org-list-parse-list 'org-list-to-lisp "Org 9.0") (defun org-list-make-subtree () "Convert the plain list at point into a subtree." diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el index aa3b4da24..8fabc3ad2 100644 --- a/lisp/org-protocol.el +++ b/lisp/org-protocol.el @@ -121,19 +121,6 @@ (filename &optional up)) (declare-function server-edit "server" (&optional arg)) -(define-obsolete-function-alias - 'org-protocol-unhex-compound 'org-link-unescape-compound - "2011-02-17") - -(define-obsolete-function-alias - 'org-protocol-unhex-string 'org-link-unescape - "2011-02-17") - -(define-obsolete-function-alias - 'org-protocol-unhex-single-byte-sequence - 'org-link-unescape-single-byte-sequence - "2011-02-17") - (defvar org-capture-link-is-already-stored) (defgroup org-protocol nil diff --git a/lisp/org.el b/lisp/org.el index e13e82d4a..89b72bc03 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3388,19 +3388,6 @@ When nil, only the minibuffer will be available." (defvaralias 'org-popup-calendar-for-date-prompt 'org-read-date-popup-calendar) -(make-obsolete-variable - 'org-read-date-minibuffer-setup-hook - "Set `org-read-date-minibuffer-local-map' instead." "24.4") -(defcustom org-read-date-minibuffer-setup-hook nil - "Hook to be used to set up keys for the date/time interface. -Add key definitions to `minibuffer-local-map', which will be a -temporary copy. - -WARNING: This option is obsolete, you should use -`org-read-date-minibuffer-local-map' to set up keys." - :group 'org-time - :type 'hook) - (defcustom org-extend-today-until 0 "The hour when your day really ends. Must be an integer. This has influence for the following applications: @@ -3981,10 +3968,6 @@ When using LaTeXML set this option to (const :tag "None" nil) (string :tag "\nShell command"))) -(define-obsolete-variable-alias - 'org-latex-create-formula-image-program - 'org-preview-latex-default-process "25.1") - (defcustom org-preview-latex-default-process 'dvipng "The default process to convert LaTeX fragments to image files. All available processes and theirs documents can be found in @@ -4085,10 +4068,6 @@ Place-holders only used by `:image-converter': :type '(alist :tag "LaTeX to image backends" :value-type (plist))) -(define-obsolete-variable-alias - 'org-latex-preview-ltxpng-directory - 'org-preview-latex-image-directory "25.1") - (defcustom org-preview-latex-image-directory "ltximg/" "Path to store latex preview images. A relative path here creates many directories relative to the @@ -4567,7 +4546,6 @@ If `org-enable-table-editor' is nil, return nil unconditionally." (or (not (derived-mode-p 'org-mode)) (let ((e (org-element-lineage (org-element-at-point) '(table) t))) (and e (or table-type (eq (org-element-property :type e) 'org))))))) -(define-obsolete-function-alias 'org-table-p 'org-at-table-p "Org 9.0") (defun org-at-table.el-p () "Non-nil when point is at a table.el table." @@ -8185,7 +8163,6 @@ even level numbers will become the next higher odd number." ((> change 0) (1+ (* 2 (/ (+ level (* 2 change)) 2)))) ((< change 0) (max 1 (1+ (* 2 (/ (+ level (* 2 change)) 2)))))) (max 1 (+ level (or change 0))))) -(define-obsolete-function-alias 'org-get-legal-level 'org-get-valid-level "23.1") (defun org-promote () "Promote the current heading higher up the tree." @@ -10519,13 +10496,6 @@ Use TAB to complete link prefixes, then RET for type-specific completion support 'org-time-stamp-inactive) (apply #'completing-read args))) -(define-obsolete-function-alias - 'org-completing-read-no-i 'completing-read "Org 9.0") -(define-obsolete-function-alias - 'org-icompleting-read 'completing-read "Org 9.0") -(define-obsolete-function-alias - 'org-iread-file-name 'read-file-name "Org 9.0") - ;;; Opening/following a link (defvar org-link-search-failed nil) @@ -17460,8 +17430,6 @@ Don't touch the rest." (let ((n 0)) (mapcar (lambda (x) (if (< (setq n (1+ n)) 7) (or x 0) x)) time))) -(define-obsolete-function-alias 'org-days-to-time 'org-time-stamp-to-now "24.4") - (defun org-time-stamp-to-now (timestamp-string &optional seconds) "Difference between TIMESTAMP-STRING and now in days. If SECONDS is non-nil, return the difference in seconds." @@ -18439,10 +18407,6 @@ tables are not re-aligned, etc." :version "24.3" :group 'org-agenda) -(define-obsolete-variable-alias - 'org-agenda-ignore-drawer-properties - 'org-agenda-ignore-properties "25.1") - (defcustom org-agenda-ignore-properties nil "Avoid updating text properties when building the agenda. Properties are used to prepare buffers for effort estimates, @@ -19079,8 +19043,6 @@ overlays were removed, nil otherwise." (mapc #'delete-overlay overlays) overlays)) -(define-obsolete-function-alias - 'org-preview-latex-fragment 'org-toggle-latex-fragment "24.4") (defun org-toggle-latex-fragment (&optional arg) "Preview the LaTeX fragment at point, or all locally or globally. @@ -19722,9 +19684,6 @@ boundaries." (list 'org-display-inline-remove-overlay)) (push ov org-inline-image-overlays))))))))))))))) -(define-obsolete-function-alias - 'org-display-inline-modification-hook 'org-display-inline-remove-overlay "24.3") - (defun org-display-inline-remove-overlay (ov after _beg _end &optional _len) "Remove inline-display overlay if a corresponding region is modified." (let ((inhibit-modification-hooks t)) @@ -20113,9 +20072,6 @@ If not, return to the original position and throw an error." (defvar org-table-auto-blank-field) ; defined in org-table.el (defvar org-speed-command nil) -(define-obsolete-function-alias - 'org-speed-command-default-hook 'org-speed-command-activate "24.3") - (defun org-speed-command-activate (keys) "Hook for activating single-letter speed commands. `org-speed-commands-default' specifies a minimal command set. @@ -20126,9 +20082,6 @@ Use `org-speed-commands-user' for further customization." (cdr (assoc keys (append org-speed-commands-user org-speed-commands-default))))) -(define-obsolete-function-alias - 'org-babel-speed-command-hook 'org-babel-speed-command-activate "24.3") - (defun org-babel-speed-command-activate (keys) "Hook for activating single-letter code block commands." (when (and (bolp) (looking-at org-babel-src-block-regexp)) @@ -22556,8 +22509,6 @@ match." (let ((end (match-end 0))) (when (or (> end pos) (and (= end pos) (not visually))) (throw :exit (cons (match-beginning 0) (match-end 0)))))))))) -(define-obsolete-function-alias 'org-at-regexp-p 'org-in-regexp - "Org mode 8.3") (defun org-between-regexps-p (start-re end-re &optional lim-up lim-down) "Non-nil when point is between matches of START-RE and END-RE. @@ -22775,9 +22726,6 @@ not an indirect buffer." (or (buffer-base-buffer buf) buf) nil))) -(define-obsolete-function-alias 'org-image-file-name-regexp 'image-file-name-regexp - "Org 9.0") - ;;; TODO: Only called once, from ox-odt which should probably use ;;; org-export-inline-image-p or something. (defun org-file-image-p (file) @@ -24195,10 +24143,6 @@ This version does not only check the character property, but also (defun org-at-heading-p (&optional ignored) (outline-on-heading-p t)) -;;; Though the function was obsoleted in 7.8.03, the byte-compiler -;;; warning was only added in Org 9.0, which should be taken into -;;; account when deciding when to remove the alias. -(define-obsolete-function-alias 'org-on-heading-p 'org-at-heading-p "Org 7.8.03") (defun org-in-commented-heading-p (&optional no-inheritance) "Non-nil if point is under a commented heading. diff --git a/lisp/ox-html.el b/lisp/ox-html.el index a7619ef3c..a3fdd6377 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -1416,8 +1416,6 @@ ignored." ;;;; Template :: Scripts -(define-obsolete-variable-alias - 'org-html-style-include-scripts 'org-html-head-include-scripts "24.4") (defcustom org-html-head-include-scripts t "Non-nil means include the JavaScript snippets in exported HTML files. The actual script is defined in `org-html-scripts' and should @@ -1429,8 +1427,6 @@ not be modified." ;;;; Template :: Styles -(define-obsolete-variable-alias - 'org-html-style-include-default 'org-html-head-include-default-style "24.4") (defcustom org-html-head-include-default-style t "Non-nil means include the default style in exported HTML files. The actual style is defined in `org-html-style-default' and @@ -1443,7 +1439,6 @@ style information." ;;;###autoload (put 'org-html-head-include-default-style 'safe-local-variable 'booleanp) -(define-obsolete-variable-alias 'org-html-style 'org-html-head "24.4") (defcustom org-html-head "" "Org-wide head definitions for exported HTML files. diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 213056ce9..090172693 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -621,8 +621,6 @@ precedence over this variable." :package-version '(Org . "8.3") :type '(choice (const :tag "No template" nil) (string :tag "Format string"))) -(define-obsolete-variable-alias - 'org-latex-with-hyperref 'org-latex-hyperref-template "25.1") ;;;; Headline diff --git a/lisp/ox-odt.el b/lisp/ox-odt.el index 0bb1dfd6d..29a0b8573 100644 --- a/lisp/ox-odt.el +++ b/lisp/ox-odt.el @@ -281,7 +281,6 @@ except that the foreground and background colors are set according to the default face identified by the `htmlfontify'.") (defvar hfy-optimizations) -(define-obsolete-variable-alias 'hfy-optimisations 'hfy-optimizations "25.1") (defvar org-odt-embedded-formulas-count 0) (defvar org-odt-embedded-images-count 0) (defvar org-odt-image-size-probe-method diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 634ebf9ad..b8cd15da4 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -35,8 +35,6 @@ :version "24.4" :package-version '(Org . "8.0")) -(define-obsolete-variable-alias - 'org-export-htmlized-org-css-url 'org-org-htmlized-css-url "24.4") (defcustom org-org-htmlized-css-url nil "URL pointing to the CSS defining colors for htmlized Emacs buffers. Normally when creating an htmlized version of an Org buffer, diff --git a/lisp/ox.el b/lisp/ox.el index 0eb97f1de..da985f3f8 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -5442,9 +5442,6 @@ Return the new string." ;; defsubst org-export-get-parent must be defined before first use -(define-obsolete-function-alias - 'org-export-get-genealogy 'org-element-lineage "25.1") - (defun org-export-get-parent-headline (blob) "Return BLOB parent headline or nil. BLOB is the element or object being considered."