diff options
| author | Juanma Barranquero | 2007-09-26 00:11:46 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:11:46 +0000 |
| commit | 56a1431a050a598a236480d92ce634e65fe0ca38 (patch) | |
| tree | afcb2dc34ffc6442d65bf68a06d1cd74edbc72e8 | |
| parent | 1e34e9d231ef1f5451880fd4b77dc5b9cf1ad278 (diff) | |
| download | emacs-56a1431a050a598a236480d92ce634e65fe0ca38.tar.gz emacs-56a1431a050a598a236480d92ce634e65fe0ca38.zip | |
(disassemble-1): Use `mapc' rather than `mapcar'.
| -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." | |||
| 250 | (+ indent disassemble-recursive-indent))) | 250 | (+ indent disassemble-recursive-indent))) |
| 251 | ((eq (car-safe (car-safe arg)) 'byte-code) | 251 | ((eq (car-safe (car-safe arg)) 'byte-code) |
| 252 | (insert "(<byte code>...)\n") | 252 | (insert "(<byte code>...)\n") |
| 253 | (mapcar ;recurse on list of byte-code objects | 253 | (mapc ;recurse on list of byte-code objects |
| 254 | '(lambda (obj) | 254 | '(lambda (obj) |
| 255 | (disassemble-1 | 255 | (disassemble-1 |
| 256 | obj | 256 | obj |