diff options
| author | Stefan Kangas | 2021-10-05 15:17:41 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2021-10-05 15:19:51 +0200 |
| commit | 4bf532ee82473740cfd43c66ecbfe6cfddf99df9 (patch) | |
| tree | aabe85e48aba74fc36dbf074e08d6779dfd2473f | |
| parent | f6901aebad31bce473cf2d438ffec2473d2df05b (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/bibtex.el | 7 |
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 |