]> code.delx.au - gnu-emacs/blobdiff - lisp/iswitchb.el
Make `buffer-offer-save' permanently local
[gnu-emacs] / lisp / iswitchb.el
index e0da2563c1ac5641c455b364edcf9e1f5a760959..70dda5442d5b5703d2cdf7662f02517418939783 100644 (file)
@@ -1118,10 +1118,9 @@ Return the modified list with the last element prepended to it."
 If BUFFER is visible in the current frame, return nil."
   (interactive)
   (let ((blist (iswitchb-get-buffers-in-frames 'current)))
-    ;;If the buffer is visible in current frame, return nil
-    (if (memq buffer blist)
-       nil
-      ;;  maybe in other frame or icon
+    ;; If the buffer is visible in current frame, return nil
+    (unless (member buffer blist)
+      ;; maybe in other frame or icon
       (get-buffer-window buffer 0) ; better than 'visible
       )))