diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-07 00:18:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-07 00:18:35 +0000 |
| commit | c9c7f2c49d42544f250aca3821155d563a5d325d (patch) | |
| tree | 98bd09d0076539062d5dd8293a3f5894bedb04ca /lisp/emacs-lisp | |
| parent | 954121657160eceda61a8d52285ad594977c305e (diff) | |
| download | emacs-c9c7f2c49d42544f250aca3821155d563a5d325d.tar.gz emacs-c9c7f2c49d42544f250aca3821155d563a5d325d.tar.bz2 emacs-c9c7f2c49d42544f250aca3821155d563a5d325d.zip | |
(backquote-backquote-symbol): Don't autoload defvar.
(`): Write its name directly in the definition. Use defalias.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/backquote.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index e61f24935ac..9e1c6c29203 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -78,12 +78,11 @@ For example (backquote-list* 'a 'b 'c) => (a b . c)" newlist) first)) -(fset 'backquote-list* (symbol-function 'backquote-list*-macro)) +(defalias 'backquote-list* (symbol-function 'backquote-list*-macro)) ;; A few advertised variables that control which symbols are used ;; to represent the backquote, unquote, and splice operations. -;;;###autoload (defvar backquote-backquote-symbol '` "*Symbol used to represent a backquote or nested backquote (e.g. `).") @@ -113,7 +112,7 @@ Vectors work just like lists. Nested backquotes are permitted." ;; GNU Emacs has no reader macros ;;;###autoload -(fset backquote-backquote-symbol (symbol-function 'backquote)) +(defalias '` (symbol-function 'backquote)) ;; backquote-process returns a dotted-pair of a tag (0, 1, or 2) and ;; the backquote-processed structure. 0 => the structure is |