comparison lisp/simple.el @ 10525:8c7043925702

(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
comparison
equal deleted inserted replaced
10524:92d4e8fc0942 10525:8c7043925702
1339 even if the mark is not currently active, and return nil 1339 even if the mark is not currently active, and return nil
1340 if there is no mark at all. 1340 if there is no mark at all.
1341 1341
1342 If you are using this in an editing command, you are most likely making 1342 If you are using this in an editing command, you are most likely making
1343 a mistake; see the documentation of `set-mark'." 1343 a mistake; see the documentation of `set-mark'."
1344 (if (or force mark-active mark-even-if-inactive) 1344 (if (or force (not transient-mark-mode) mark-active mark-even-if-inactive)
1345 (marker-position (mark-marker)) 1345 (marker-position (mark-marker))
1346 (signal 'mark-inactive nil))) 1346 (signal 'mark-inactive nil)))
1347 1347
1348 ;; Many places set mark-active directly, and several of them failed to also 1348 ;; Many places set mark-active directly, and several of them failed to also
1349 ;; run deactivate-mark-hook. This shorthand should simplify. 1349 ;; run deactivate-mark-hook. This shorthand should simplify.