diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:11:46 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:11:46 +0000 |
| commit | 56a1431a050a598a236480d92ce634e65fe0ca38 (patch) | |
| tree | afcb2dc34ffc6442d65bf68a06d1cd74edbc72e8 /lisp/emacs-lisp | |
| parent | 1e34e9d231ef1f5451880fd4b77dc5b9cf1ad278 (diff) | |
| download | emacs-56a1431a050a598a236480d92ce634e65fe0ca38.tar.gz | |
(disassemble-1): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index 01378a7f8d6..60b29bdb949 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el @@ -250,7 +250,7 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler." (+ indent disassemble-recursive-indent))) ((eq (car-safe (car-safe arg)) 'byte-code) (insert "(<byte code>...)\n") - (mapcar ;recurse on list of byte-code objects + (mapc ;recurse on list of byte-code objects '(lambda (obj) (disassemble-1 obj |