From: Roland McGrath <roland@gnu.org>
Date: Thu, 8 Jul 1993 22:38:59 +0000 (+0000)
Subject: (ispell): Call deactivate-mark instead of setting mark-active directly.  Do
X-Git-Tag: emacs-19.34~11808
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d28f0725d75b9a50e73d9c98d15fbb8ab7f402b;p=emacs.git

(ispell): Call deactivate-mark instead of setting mark-active directly.  Do
this regardless of transient-mark-mode.
---

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index ad95f3752bb..2fe07e823d4 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -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 @@ q, \\[keyboard-quit]	Leave the command loop.  You can come back later with \\[is
       (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)