diff options
| author | Richard M. Stallman | 1999-08-29 20:27:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-08-29 20:27:40 +0000 |
| commit | 1be152fc1a745e453209820f53cdcc3cce97d934 (patch) | |
| tree | 2523dd5733f31d54cd98135fe0d2047f2a94622a | |
| parent | d270117a18a28a1bebdb687fd794b5cc89f1559d (diff) | |
| download | emacs-1be152fc1a745e453209820f53cdcc3cce97d934.tar.gz emacs-1be152fc1a745e453209820f53cdcc3cce97d934.zip | |
Fix previous change.
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index a80383467d3..5d94a2aa9ad 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -51,12 +51,12 @@ BODY should be a list of lisp expressions." | |||
| 51 | ;; depend on backquote.el. | 51 | ;; depend on backquote.el. |
| 52 | (list 'function (cons 'lambda cdr))) | 52 | (list 'function (cons 'lambda cdr))) |
| 53 | 53 | ||
| 54 | (defmacro push (value listname) | 54 | (defmacro push (newelt listname) |
| 55 | "Add VALUE to the list which is the value of LISTNAME. | 55 | "Add NEWELT to the list which is the value of LISTNAME. |
| 56 | This is equivalent to (setq LISTNAME (cons VALUE LISTNAME)). | 56 | This is equivalent to (setq LISTNAME (cons NEWELT LISTNAME)). |
| 57 | LISTNAME must be a symbol." | 57 | LISTNAME must be a symbol." |
| 58 | (list 'setq list | 58 | (list 'setq list |
| 59 | (list 'cons value list))) | 59 | (list 'cons newelt list))) |
| 60 | 60 | ||
| 61 | (defmacro pop (listname) | 61 | (defmacro pop (listname) |
| 62 | "Return the first element of LISTNAME's value, and remove it from the list. | 62 | "Return the first element of LISTNAME's value, and remove it from the list. |