branch: externals/denote
commit 9a08d6bf25dfcc15132fe002d146325389c884d9
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Remove all deprecation notices that were in place before version 2.3.0
---
denote.el | 129 --------------------------------------------------------------
1 file changed, 129 deletions(-)
diff --git a/denote.el b/denote.el
index f6a8cefcf6..55aee1a3c0 100644
--- a/denote.el
+++ b/denote.el
@@ -385,11 +385,6 @@ If nil, show the keywords in their given order."
:package-version '(denote . "0.1.0")
:type 'boolean)
-(make-obsolete
- 'denote-allow-multi-word-keywords
- 'denote-file-name-letter-casing
- "2.1.0")
-
(defcustom denote-file-type nil
"The file type extension for new notes.
@@ -1016,8 +1011,6 @@ For our purposes, a note must satisfy `file-regular-p' and
"Return non-nil if FILE has a Denote identifier."
(denote-retrieve-filename-signature file))
-(make-obsolete 'denote-file-directory-p nil "2.0.0")
-
(defun denote--file-regular-writable-p (file)
"Return non-nil if FILE is regular and writable."
(and (file-regular-p file)
@@ -1044,11 +1037,6 @@ FILE must be an absolute path."
(when (string-match denote-id-regexp string)
(match-string-no-properties 0 string)))
-(define-obsolete-function-alias
- 'denote--default-dir-has-denote-prefix
- 'denote--dir-in-denote-directory-p
- "2.1.0")
-
(defun denote--exclude-directory-regexp-p (file)
"Return non-nil if FILE matches `denote-excluded-directories-regexp'."
(and denote-excluded-directories-regexp
@@ -1115,17 +1103,6 @@ text files that satisfy `denote-filename-is-note-p'."
(setq files (seq-filter #'denote-filename-is-note-p files)))
files))
-;; NOTE 2023-11-30: We are declaring `denote-directory-text-only-files'
-;; obsolete, though we keep it around for the foreseeable future. It
-;; WILL BE REMOVED ahead of version 3.0.0 of Denote, whenever that
-;; happens.
-(make-obsolete 'denote-directory-text-only-files 'denote-directory-files
"2.2.0")
-
-(defun denote-directory-text-only-files ()
- "Return list of text files in variable `denote-directory'.
-Filter `denote-directory-files' using `denote-filename-is-note-p'."
- (denote-directory-files nil nil :text-only))
-
(defun denote-directory-subdirectories ()
"Return list of subdirectories in variable `denote-directory'.
Omit dotfiles (such as .git) unconditionally. Also exclude
@@ -1139,21 +1116,11 @@ whatever matches `denote-excluded-directories-regexp'."
(denote--exclude-directory-regexp-p rel))))
(denote--directory-all-files-recursively)))
-(define-obsolete-variable-alias
- 'denote--encryption-file-extensions
- 'denote-encryption-file-extensions
- "2.0.0")
-
;; TODO 2023-01-24: Perhaps there is a good reason to make this a user
;; option, but I am keeping it as a generic variable for now.
(defvar denote-encryption-file-extensions '(".gpg" ".age")
"List of strings specifying file extensions for encryption.")
-(define-obsolete-function-alias
- 'denote--extensions-with-encryption
- 'denote-file-type-extensions-with-encryption
- "2.0.0")
-
(defun denote-file-type-extensions-with-encryption ()
"Derive `denote-file-type-extensions' plus
`denote-encryption-file-extensions'."
(let ((file-extensions (denote-file-type-extensions))
@@ -1209,27 +1176,6 @@ something like .org even if the actual file extension is
The path is relative to DIRECTORY (default: ‘default-directory’)."
(file-relative-name (denote-get-path-by-id id) directory))
-;; NOTE 2023-11-30: We are declaring `denote-directory-files-matching-regexp'
-;; obsolete, though we keep it around for the foreseeable future. It
-;; WILL BE REMOVED ahead of version 3.0.0 of Denote, whenever that
-;; happens.
-(make-obsolete 'denote-directory-files-matching-regexp 'denote-directory-files
"2.2.0")
-
-(defun denote-directory-files-matching-regexp (regexp)
- "Return list of files matching REGEXP in `denote-directory-files'."
- (denote-directory-files regexp))
-
-;; NOTE 2023-11-30: We are declaring `denote-all-files' obsolete,
-;; though we keep it around for the foreseeable future. It WILL BE
-;; REMOVED ahead of version 3.0.0 of Denote, whenever that happens.
-(make-obsolete 'denote-all-files 'denote-directory-files "2.2.0")
-
-(defun denote-all-files (&optional omit-current)
- "Return the list of Denote files in variable `denote-directory'.
-With optional OMIT-CURRENT, do not include the current Denote
-file in the returned list."
- (denote-directory-files nil omit-current nil))
-
(defvar denote-file-history nil
"Minibuffer history of `denote-file-prompt'.")
@@ -1344,11 +1290,6 @@ KEYWORDS is a list of strings, per
`denote-keywords-prompt'."
(sort (copy-sequence keywords) #'string-collate-lessp)
keywords))
-(define-obsolete-function-alias
- 'denote--keywords-combine
- 'denote-keywords-combine
- "2.1.0")
-
(defun denote-keywords-combine (keywords)
"Combine KEYWORDS list of strings into a single string.
Keywords are separated by the underscore character, per the
@@ -1652,11 +1593,6 @@ for new note creation. The default is `org'.")
(symbol-value prop)
prop)))
-(define-obsolete-function-alias
- 'denote--extensions
- 'denote-file-type-extensions
- "2.0.0")
-
(defun denote-file-type-extensions ()
"Return all file type extensions in `denote-file-types'."
(delete-dups
@@ -1758,11 +1694,6 @@ To only return an existing identifier, refer to the
function
(t (denote-get-identifier)))))
(denote--find-first-unused-id id)))
-(define-obsolete-function-alias
- 'denote-retrieve-or-create-file-identifier
- 'denote-retrieve-filename-identifier
- "2.1.0")
-
(defun denote-retrieve-filename-keywords (file)
"Extract keywords from FILE name, if present, else return nil.
Return matched keywords as a single string."
@@ -2113,8 +2044,6 @@ available id is found."
(setq current-id (denote-get-identifier (time-add (date-to-time
current-id) 1))))
current-id))
-(make-obsolete 'denote-barf-duplicate-id nil "2.1.0")
-
(defvar denote-command-prompt-history nil
"Minibuffer history for `denote-command-prompt'.")
@@ -2799,11 +2728,6 @@ related."
(delete-region (point) (line-end-position))
(when save-buffer (save-buffer)))))))
-(define-obsolete-function-alias
- 'denote--rewrite-keywords
- 'denote-rewrite-keywords
- "2.0.0")
-
(defun denote-rewrite-front-matter (file title keywords file-type)
"Rewrite front matter of note after `denote-rename-file'.
The FILE, TITLE, KEYWORDS, and FILE-TYPE are given by the
@@ -2839,11 +2763,6 @@ produce a `y-or-n-p' prompt to that effect."
(insert new-keywords-line)
(delete-region (point) (line-end-position))))))))
-(define-obsolete-function-alias
- 'denote--rewrite-front-matter
- 'denote-rewrite-front-matter
- "2.0.0")
-
;;;;; The renaming commands and their prompts
(defun denote--rename-dired-file-or-current-file-or-prompt ()
@@ -3142,11 +3061,6 @@ setting `denote-rename-confirmations' to a nil value)."
(denote-update-dired-buffers))
(user-error "No marked files; aborting"))))
-(make-obsolete
- 'denote-dired-rename-marked-files
- 'denote-dired-rename-marked-files-with-keywords
- "2.1.0")
-
(defalias 'denote-dired-rename-marked-files 'denote-dired-rename-files
"Alias for `denote-dired-rename-files'.")
@@ -3349,11 +3263,6 @@ relevant front matter.
(file-type (denote-filetype-heuristics file)))
(denote--add-front-matter file title keywords id file-type)))
-(define-obsolete-function-alias
- 'denote-change-file-type
- 'denote-change-file-type-and-front-matter
- "2.1.0")
-
;;;###autoload
(defun denote-change-file-type-and-front-matter (file new-file-type)
"Change file type of FILE and add an appropriate front matter.
@@ -3863,7 +3772,6 @@ See the `:link' property of `denote-file-types'."
(denote-retrieve-filename-identifier file)
description))
-(make-obsolete 'denote-link--format-link 'denote-format-link "2.1.0")
(make-obsolete 'denote-link-signature-format nil "2.3.0")
(defun denote--link-get-description (file)
@@ -3951,11 +3859,6 @@ Also see `denote-link-with-signature'."
(denote--delete-active-region-content)
(insert (denote-format-link file description file-type id-only)))
-(define-obsolete-function-alias
- 'denote-link-insert-link
- 'denote-insert-link
- "2.0.0")
-
(defalias 'denote-insert-link 'denote-link
"Alias for `denote-link' command.")
@@ -4034,11 +3937,6 @@ Also see `denote-link-return-backlinks'."
(defalias 'denote-link-return-forelinks 'denote-link-return-links
"Alias for `denote-link-return-links'.")
-(define-obsolete-function-alias
- 'denote-link-find-file
- 'denote-find-link
- "2.0.0")
-
;;;###autoload
(defun denote-find-link ()
"Use minibuffer completion to visit linked file."
@@ -4058,11 +3956,6 @@ Also see `denote-link-return-links'."
(id (denote-retrieve-filename-identifier-with-error
current-file)))
(delete current-file (denote--retrieve-files-in-xrefs id))))
-(define-obsolete-function-alias
- 'denote-link-find-backlink
- 'denote-find-backlink
- "2.0.0")
-
;;;###autoload
(defun denote-find-backlink ()
"Use minibuffer completion to visit backlink to current file.
@@ -4411,11 +4304,6 @@ concomitant alist, such as
`denote-link-backlinks-display-buffer-action'."
(denote-link--prepare-backlinks query)))))
(denote-link--display-buffer buffer-name display-buffer-action)))
-(define-obsolete-function-alias
- 'denote-link-backlinks
- 'denote-backlinks
- "2.0.0")
-
(defun denote--backlinks-get-buffer-name (file id)
"Format a buffer name for `denote-backlinks'.
Use FILE to detect a suitable title with which to name the buffer. Else
@@ -4441,11 +4329,6 @@ Place the buffer below the current window or wherever
the user option
(denote-link--prepare-backlinks id nil
(denote--backlinks-get-buffer-name file id)))
(user-error "Buffer `%s' is not associated with a file" (current-buffer))))
-(define-obsolete-function-alias
- 'denote-link-show-backlinks-buffer
- 'denote-show-backlinks-buffer
- "2.0.0")
-
(defalias 'denote-show-backlinks-buffer 'denote-backlinks
"Alias for `denote-backlinks' command.")
@@ -4478,11 +4361,6 @@ Otherwise sort lines while accounting for
`denote-link-add-links-sort'."
(sort-lines denote-link-add-links-sort (point-min) (point-max)))
(buffer-string)))
-(define-obsolete-function-alias
- 'denote-link-add-links
- 'denote-add-links
- "2.0.0")
-
(defun denote-link--insert-links (files current-file-type &optional id-only
no-sort)
"Insert at point a typographic list of links matching FILES.
@@ -4522,13 +4400,6 @@ inserts links with just the identifier."
(defalias 'denote-link-insert-links-matching-regexp 'denote-add-links
"Alias for `denote-add-links' command.")
-(define-obsolete-function-alias
- 'denote-link-add-missing-links
- 'denote-add-missing-links
- "2.0.0")
-
-(make-obsolete 'denote-add-missing-links nil "2.2.0")
-
;;;;; Links from Dired marks
;; NOTE 2022-07-21: I don't think we need a history for this one.
