Initial revision

[gnu-emacs] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index f69efad68720f19de7821f115b509fffab40f65e..dfca44cffc6968dabe2603e9141e71a679e7456f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1094,7 +1094,7 @@ system cut and paste."
              (goto-char opoint)
              ;; If user quit, deactivate the mark
              ;; as C-g would as a command.
-             (and quit-flag transient-mark-mode mark-active
+             (and quit-flag mark-active
                   (progn
                     (message "foo")    ;XXX what is this here for?  --roland
                     (deactivate-mark))))