[Emacs-diffs] /srv/bzr/emacs/trunk r111163: * simple.el (set-mark-default-inactive): Delete accidentally-introduced option.

[Chong Yidong]

------------------------------------------------------------
revno: 111163
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-09 11:40:09 +0800
message:
  * simple.el (set-mark-default-inactive): Delete accidentally-introduced 
option.
  (set-mark-command, exchange-point-and-mark): Remove calls.
modified:
  etc/NEWS
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2012-12-09 01:04:43 +0000
+++ b/etc/NEWS  2012-12-09 03:40:09 +0000
@@ -29,6 +29,10 @@
 ** `eval-defun' on an already defined defcustom calls the :set function,
 if there is one.
 
+** The option `set-mark-default-inactive' has been deleted.
+This unfinished feature was introduced by accident in Emacs 23.1;
+simply disabling Transient Mark mode does the same thing.
+
 * Editing Changes in Emacs 24.4
 
 

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-09 01:04:43 +0000
+++ b/lisp/ChangeLog    2012-12-09 03:40:09 +0000
@@ -1,3 +1,9 @@
+2012-12-09  Chong Yidong  <address@hidden>
+
+       * simple.el (set-mark-default-inactive): Delete this
+       accidentally-introduced option.
+       (set-mark-command, exchange-point-and-mark): Remove calls.
+
 2012-12-09  Glenn Morris  <address@hidden>
 
        * emacs-lisp/lisp-mode.el (eval-defun-1): Doc fix.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2012-12-03 01:08:31 +0000
+++ b/lisp/simple.el    2012-12-09 03:40:09 +0000
@@ -4134,14 +4134,6 @@
   :type 'boolean
   :group 'editing-basics)
 
-(defcustom set-mark-default-inactive nil
-  "If non-nil, setting the mark does not activate it.
-This causes \\[set-mark-command] and \\[exchange-point-and-mark] to
-behave the same whether or not `transient-mark-mode' is enabled."
-  :type 'boolean
-  :group 'editing-basics
-  :version "23.1")
-
 (defun set-mark-command (arg)
   "Set the mark where point is, or jump to the mark.
 Setting the mark also alters the region, which is the text
@@ -4203,8 +4195,7 @@
       (activate-mark)
       (message "Mark activated")))
    (t
-    (push-mark-command nil)
-    (if set-mark-default-inactive (deactivate-mark)))))
+    (push-mark-command nil))))
 
 (defun push-mark (&optional location nomsg activate)
   "Set mark at LOCATION (point, by default) and push old mark on mark ring.
@@ -4268,7 +4259,6 @@
     (deactivate-mark)
     (set-mark (point))
     (goto-char omark)
-    (if set-mark-default-inactive (deactivate-mark))
     (cond (temp-highlight
           (setq transient-mark-mode (cons 'only transient-mark-mode)))
          ((or (and arg (region-active-p)) ; (xor arg (not (region-active-p)))