[Emacs-diffs] Changes to emacs/lisp/ibuf-macs.el

[John Paul Wallington]

Index: emacs/lisp/ibuf-macs.el
diff -c emacs/lisp/ibuf-macs.el:1.12 emacs/lisp/ibuf-macs.el:1.13
*** emacs/lisp/ibuf-macs.el:1.12        Tue Feb  4 06:25:31 2003
--- emacs/lisp/ibuf-macs.el     Mon Mar  3 10:11:05 2003
***************
*** 37,43 ****
  If TEST returns non-nil, bind `it' to the value, and evaluate
  TRUE-BODY.  Otherwise, evaluate forms in FALSE-BODY as if in `progn'.
  Compare with `if'."
!   (let ((sym (gensym "--ibuffer-aif-")))
      `(let ((,sym ,test))
         (if ,sym
           (let ((it ,sym))
--- 37,43 ----
  If TEST returns non-nil, bind `it' to the value, and evaluate
  TRUE-BODY.  Otherwise, evaluate forms in FALSE-BODY as if in `progn'.
  Compare with `if'."
!   (let ((sym (make-symbol "ibuffer-aif-sym")))
      `(let ((,sym ,test))
         (if ,sym
           (let ((it ,sym))
***************
*** 56,62 ****
  
  (defmacro ibuffer-save-marks (&rest body)
    "Save the marked status of the buffers and execute BODY; restore marks."
!   (let ((bufsym (gensym)))
      `(let ((,bufsym (current-buffer))
           (ibuffer-save-marks-tmp-mark-list (ibuffer-current-state-list)))
         (unwind-protect
--- 56,62 ----
  
  (defmacro ibuffer-save-marks (&rest body)
    "Save the marked status of the buffers and execute BODY; restore marks."
!   (let ((bufsym (make-symbol "bufsym")))
      `(let ((,bufsym (current-buffer))
           (ibuffer-save-marks-tmp-mark-list (ibuffer-current-state-list)))
         (unwind-protect