branch: externals/show-font
commit 9f419f2af034e8a722c7ad1f99f86b515b1a0a72
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make show-font-list an alias for show-font-tabulated
There is no need to make that obsolete, even though the original
command of that name does not exist anymore (the tabulated one is its
spiritual successor).
---
README.org | 16 ++++++++--------
show-font.el | 8 +++-----
2 files changed, 11 insertions(+), 13 deletions(-)
diff --git a/README.org b/README.org
index af083ff424..d0e96ba818 100644
--- a/README.org
+++ b/README.org
@@ -57,14 +57,14 @@ Emacs. This can be done in the following ways:
font is then displayed in a bespoke buffer.
#+findex: show-font-tabulated
-- The command ~show-font-tabulated~ produces a list with all the fonts
- available on the system. Each font on display is styled with its
- given character set. With an optional prefix argument (=C-u= by
- default), it prompt for a string or regular expression to limit the
- list of fonts to only the matching ones. In this tabulated
- interface, users can sort by column and may prefer the slightly more
- compact listing. [ The command ~show-font-list~ is an obsolete alias
- of ~show-font-tabulated~ as part of {{{development-version}}}. ]
+#+findex: show-font-list
+- The command ~show-font-tabulated~ (alias ~show-font-list~) produces
+ a list with all the fonts available on the system. Each font on
+ display is styled with its given character set. With an optional
+ prefix argument (=C-u= by default), it prompt for a string or
+ regular expression to limit the list of fonts to only the matching
+ ones. In this tabulated interface, users can sort by column and may
+ prefer the slightly more compact listing.
#+findex: show-font-mode
- The ~show-font-mode~ is a major mode that gets activated when the
diff --git a/show-font.el b/show-font.el
index f114a50c6c..36c0bbe7e3 100644
--- a/show-font.el
+++ b/show-font.el
@@ -501,11 +501,6 @@ FAMILY is a string that satisfies `show-font-installed-p'."
(format-prompt "Fonts matching REGEXP" default)
nil 'show-font-regexp-history default)))
-(define-obsolete-function-alias
- 'show-font-list
- 'show-font-tabulated
- "0.3.0")
-
(defun show-font--list-families (&optional regexp)
"Return a list of propertized family strings for `show-font-list'.
Optional REGEXP has the meaning documented in the function
@@ -557,6 +552,9 @@ Otherwise, list all installed fonts."
(show-font-tabulated-mode)))
(display-buffer buffer show-font-display-buffer-action-alist)))
+(defalias 'show-font-list 'show-font-tabulated
+ "Alias for `show-font-tabulated'.")
+
;;;; Major mode to preview the font of the current TTF or OTF file
;;;###autoload
