# HG changeset patch
# User Michael I. Bushnell <mib@gnu.org>
# Date 760646413 0
# Node ID 2de9426a38bf82addcadb03e3b5f804eebb8b70c
# Parent  b1f35db748d82eae0f4734effa938c38ddfee96c
Fix Roland's misplaced paren around call to marker-buffer.

diff -r b1f35db748d8 -r 2de9426a38bf lisp/simple.el
--- a/lisp/simple.el	Mon Feb 07 18:25:41 1994 +0000
+++ b/lisp/simple.el	Mon Feb 07 18:40:13 1994 +0000
@@ -1357,7 +1357,7 @@
   (set-marker (mark-marker) (or location (point)) (current-buffer))
   ;; Now push the mark on the global mark ring.
   (if (and global-mark-ring
-	   (eq (marker-buffer (car global-mark-ring) (current-buffer))))
+	   (eq (marker-buffer (car global-mark-ring)) (current-buffer)))
       ;; The last global mark pushed was in this same buffer.
       ;; Don't push another one.
       nil