aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2021-10-05 15:17:41 +0200
committerStefan Kangas2021-10-05 15:19:51 +0200
commit4bf532ee82473740cfd43c66ecbfe6cfddf99df9 (patch)
treeaabe85e48aba74fc36dbf074e08d6779dfd2473f
parentf6901aebad31bce473cf2d438ffec2473d2df05b (diff)
downloademacs-4bf532ee82473740cfd43c66ecbfe6cfddf99df9.tar.gz
emacs-4bf532ee82473740cfd43c66ecbfe6cfddf99df9.zip
Make two old function aliases obsolete
* lisp/textmodes/bibtex.el (bibtex-find-crossref) (bibtex-find-entry): Make function aliases obsolete. These were left behind when renaming functions, but never declared obsolete.
-rw-r--r--lisp/gnus/gnus-registry.el2
-rw-r--r--lisp/textmodes/bibtex.el7
2 files changed, 4 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 9b76f983227..11913a213bd 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -1142,7 +1142,7 @@ non-nil."
1142 entry) 1142 entry)
1143 (while (car-safe old) 1143 (while (car-safe old)
1144 (cl-incf count) 1144 (cl-incf count)
1145 ;; don't use progress reporters for backwards compatibility 1145 ;; todo: use progress reporters.
1146 (when (and (< 0 expected) 1146 (when (and (< 0 expected)
1147 (= 0 (mod count 100))) 1147 (= 0 (mod count 100)))
1148 (message "importing: %d of %d (%.2f%%)" 1148 (message "importing: %d of %d (%.2f%%)"
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 237a1d99353..c06e8bfa1bb 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -4317,8 +4317,6 @@ for a crossref key, t otherwise."
4317 (eqb (goto-char pos)) 4317 (eqb (goto-char pos))
4318 (t (set-buffer buffer) (goto-char pos))) 4318 (t (set-buffer buffer) (goto-char pos)))
4319 pos)) 4319 pos))
4320;; backward compatibility
4321(defalias 'bibtex-find-crossref 'bibtex-search-crossref)
4322 4320
4323(defun bibtex-dist (pos beg end) 4321(defun bibtex-dist (pos beg end)
4324 "Return distance between POS and region delimited by BEG and END." 4322 "Return distance between POS and region delimited by BEG and END."
@@ -4381,8 +4379,6 @@ A prefix arg negates the value of `bibtex-search-entry-globally'."
4381 (if display (bibtex-reposition-window))) 4379 (if display (bibtex-reposition-window)))
4382 (display (message "Key `%s' not found" key))) 4380 (display (message "Key `%s' not found" key)))
4383 pnt))) 4381 pnt)))
4384;; backward compatibility
4385(defalias 'bibtex-find-entry 'bibtex-search-entry)
4386 4382
4387(defun bibtex-prepare-new-entry (index) 4383(defun bibtex-prepare-new-entry (index)
4388 "Prepare a new BibTeX entry with index INDEX. 4384 "Prepare a new BibTeX entry with index INDEX.
@@ -5608,5 +5604,8 @@ If APPEND is non-nil, append ENTRIES to those already displayed."
5608 (setq buffer-read-only t) 5604 (setq buffer-read-only t)
5609 (goto-char (point-min))) 5605 (goto-char (point-min)))
5610 5606
5607(define-obsolete-function-alias 'bibtex-find-crossref #'bibtex-search-crossref "29.1")
5608(define-obsolete-function-alias 'bibtex-find-entry #'bibtex-search-entry "29.1")
5609
5611(provide 'bibtex) 5610(provide 'bibtex)
5612;;; bibtex.el ends here 5611;;; bibtex.el ends here