* simple.el (transient-mark-mode): Add an :init-value.

* startup.el (command-line): Use custom-reevaluate-setting for
transient-mark-mode.

* callint.c (syms_of_callint): Initialize Vmark_even_if_inactive
with Qt.

3 files changed, 11 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6256677c594..805570ea41a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-02-17  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * simple.el (transient-mark-mode): Add an :init-value.
+
+        * startup.el (command-line): Use custom-reevaluate-setting for
+        transient-mark-mode.
+
 2008-02-17  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
 
         * wdired.el (wdired-allow-to-change-permissions): Fix typo.
diff --git a/lisp/simple.el b/lisp/simple.el
index e838731c1be..0ae64b550b7 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3586,7 +3586,9 @@ default part of the buffer's text.  Examples of such commands include
 Invoke \\[apropos-documentation] and type \"transient\" or
 \"mark.*active\" at the prompt, to see the documentation of
 commands which are sensitive to the Transient Mark mode."
-  :global t :group 'editing-basics)
+  :global t 
+  :init-value (not noninteractive)
+  :group 'editing-basics)
 
 (defvar widen-automatically t
   "Non-nil means it is ok for commands to call `widen' when they want to.
diff --git a/lisp/startup.el b/lisp/startup.el
index 56101f3da28..27589295c44 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -847,6 +847,7 @@ opening the first frame (e.g. open a connection to an X server).")
   (custom-reevaluate-setting 'send-mail-function)
   (custom-reevaluate-setting 'focus-follows-mouse)
   (custom-reevaluate-setting 'global-auto-composition-mode)
+  (custom-reevaluate-setting 'transient-mark-mode)
 
   (normal-erase-is-backspace-setup-frame)