# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 742171139 0
# Node ID 6228decc135368fd82dba909b9ee8561e93f491e
# Parent  4b4ab64225f7010085241e59d6947f0ef4dd64de
(ispell): Call deactivate-mark instead of setting mark-active directly.  Do
this regardless of transient-mark-mode.

diff -r 4b4ab64225f7 -r 6228decc1353 lisp/textmodes/=ispell4.el
--- 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)