Mercurial > emacs

diff lisp/simple.el @ 10525:8c7043925702

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark): If transient-mark-mode is nil, mark is active.
author Karl Heuer <kwzh@gnu.org>
date Mon, 23 Jan 1995 22:37:46 +0000
parents 3eb77f03f53e
children b357342180c2
line wrap: on
line diff
--- a/lisp/simple.el	Mon Jan 23 22:20:24 1995 +0000
+++ b/lisp/simple.el	Mon Jan 23 22:37:46 1995 +0000
@@ -1341,7 +1341,7 @@
 
 If you are using this in an editing command, you are most likely making
 a mistake; see the documentation of `set-mark'."
-  (if (or force mark-active mark-even-if-inactive)
+  (if (or force (not transient-mark-mode) mark-active mark-even-if-inactive)
       (marker-position (mark-marker))
     (signal 'mark-inactive nil)))