diff options
| author | Tino Calancha | 2016-12-15 15:02:32 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-12-15 15:02:32 +0900 |
| commit | 0a5898c3dd2e32431268bc2bcf3536d4cd62ad39 (patch) | |
| tree | 92fa1aabc1412b8e763fc6d92e52f9e4e23bb92d | |
| parent | d0388bd12d68d0f40f655474c970d572a133f5e7 (diff) | |
| download | emacs-0a5898c3dd2e32431268bc2bcf3536d4cd62ad39.tar.gz emacs-0a5898c3dd2e32431268bc2bcf3536d4cd62ad39.zip | |
* lisp/ibuf-macs.el (define-ibuffer-filter): Wrap ,@body in a progn.
| -rw-r--r-- | lisp/ibuf-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index 3c95f4c44ce..fc8c127c1c3 100644 --- a/lisp/ibuf-macs.el +++ b/lisp/ibuf-macs.el | |||
| @@ -304,7 +304,7 @@ bound to the current value of the filter. | |||
| 304 | (push (list ',name ,description | 304 | (push (list ',name ,description |
| 305 | (lambda (buf qualifier) | 305 | (lambda (buf qualifier) |
| 306 | (condition-case nil | 306 | (condition-case nil |
| 307 | ,@body | 307 | (progn ,@body) |
| 308 | (error (ibuffer-pop-filter) | 308 | (error (ibuffer-pop-filter) |
| 309 | (when (eq ',name 'predicate) | 309 | (when (eq ',name 'predicate) |
| 310 | (error "Wrong filter predicate: %S" | 310 | (error "Wrong filter predicate: %S" |