diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 09:30:36 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 09:30:36 +0000 |
| commit | 781424c2f372d40d69d6aa77d62adc236e795323 (patch) | |
| tree | 035f1c5fd7701a3b43d2189e970fad5f497f416c /lisp/descr-text.el | |
| parent | 5556875b184999982de635af7ae1371719699f7b (diff) | |
| download | emacs-781424c2f372d40d69d6aa77d62adc236e795323.tar.gz | |
(describe-char-after): Use `define-obsolete-function-alias'.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index c3b249f9072..7b7a209451f 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -220,13 +220,6 @@ At the time of writing it is at the URL :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 @@ as well as widgets, buttons, overlays, and text properties." (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) |