Mercurial > emacs
changeset 94147:587f5f26f25d
(describe-char-after): Use `define-obsolete-function-alias'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Apr 2008 09:30:36 +0000 |
| parents | 096ad76b9ccf |
| children | be53eb871301 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 1 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Fri Apr 18 03:26:55 2008 +0000 +++ b/lisp/descr-text.el Fri Apr 18 09:30:36 2008 +0000 @@ -220,13 +220,6 @@ :type '(choice (const :tag "None" nil) file)) -;; We could convert the unidata file into a Lispy form once-for-all -;; and distribute it for loading on demand. It might be made more -;; space-efficient by splitting strings word-wise and replacing them -;; with lists of symbols interned in a private obarray, e.g. -;; "LATIN SMALL LETTER A" => '(LATIN SMALL LETTER A). - -;; Fixme: Check whether this needs updating for Unicode 4. (defun describe-char-unicode-data (char) "Return a list of Unicode data for unicode CHAR. Each element is a list of a property description and the property value. @@ -653,8 +646,7 @@ (setq help-xref-stack-item (list 'help-insert-string (buffer-string))) (toggle-read-only 1))))) -(defalias 'describe-char-after 'describe-char) -(make-obsolete 'describe-char-after 'describe-char "22.1") +(define-obsolete-function-alias 'describe-char-after 'describe-char "22.1") (provide 'descr-text)