X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/35cf62d95cdcd5323dcea4a5385942c342ff1d9c..9fb9136398821ed5f3a8b4405bbc222964f54028:/lisp/obsolete/pc-select.el

diff --git a/lisp/obsolete/pc-select.el b/lisp/obsolete/pc-select.el
index 676d7817f1..5ee0818a1e 100644
--- a/lisp/obsolete/pc-select.el
+++ b/lisp/obsolete/pc-select.el
@@ -2,7 +2,7 @@
 ;;;		     (or MAC GUI or MS-windoze (bah)) look-and-feel
 ;;;		     including key bindings.
 
-;; Copyright (C) 1995-1997, 2000-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1995-1997, 2000-2014 Free Software Foundation, Inc.
 
 ;; Author: Michael Staats <michael@thp.Uni-Duisburg.DE>
 ;; Keywords: convenience emulations
@@ -388,7 +388,7 @@ but before calling PC Selection mode):
 		   (fboundp 'normal-erase-is-backspace-mode))
 	  (normal-erase-is-backspace-mode 1))
 	(setq highlight-nonselected-windows nil)
-	(setq transient-mark-mode t)
+	(transient-mark-mode 1)
 	(setq mark-even-if-inactive t)
 	(delete-selection-mode 1))
     ;;else