;;; ielm.el --- interaction mode for Emacs Lisp
;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: David Smith <maa036@lancaster.ac.uk>
;; Maintainer: FSF
(setq ielm-result "More than one sexp in input"))))
;; If the eval changed the current buffer, mention it here
- (when (eq ielm-wbuf ielm-working-buffer)
+ (unless (eq ielm-wbuf ielm-working-buffer)
(message "current buffer is now: %s" ielm-wbuf)
(setq ielm-working-buffer ielm-wbuf))