changeset 4043:6228decc1353

(ispell): Call deactivate-mark instead of setting mark-active directly. Do this regardless of transient-mark-mode.
author Roland McGrath <roland@gnu.org>
date Thu, 08 Jul 1993 22:38:59 +0000
parents 4b4ab64225f7
children ad0643aa3ebf
files lisp/textmodes/=ispell4.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/=ispell4.el	Thu Jul 08 22:37:42 1993 +0000
+++ b/lisp/textmodes/=ispell4.el	Thu Jul 08 22:38:59 1993 +0000
@@ -1,6 +1,6 @@
 ;;; ispell.el --- this is the GNU EMACS interface to GNU ISPELL version 4.
 
-;;Copyright (C) 1990, 1991 Free Software Foundation, Inc.
+;;Copyright (C) 1990, 1991, 1993 Free Software Foundation, Inc.
 
 ;; Keywords: wp
 
@@ -245,10 +245,7 @@
       (error "Can't find buffer"))
   ;; Deactivate the mark, because we'll do it anyway if we change something,
   ;; and a region highlight while in the Ispell loop is distracting.
-  (if transient-mark-mode
-      (progn
-	(setq mark-active nil)
-	(run-hooks 'deactivate-mark-hook)))
+  (deactivate-mark)
   (save-excursion
     (set-buffer buf)
     (let ((filename buffer-file-name)