# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798849156 0
# Node ID ba22258c5916a261d6b5d9a522740c6a103cde9f
# Parent  3ddbf9b31cf091bbbd8c493e6cfba505dff024b7
(delete-selection-mode): Use force-mode-line-update.

diff -r 3ddbf9b31cf0 -r ba22258c5916 lisp/delsel.el
--- a/lisp/delsel.el	Tue Apr 25 22:32:18 1995 +0000
+++ b/lisp/delsel.el	Tue Apr 25 22:32:36 1995 +0000
@@ -84,7 +84,7 @@
   (setq delete-selection-mode
 	(if (null arg) (not delete-selection-mode)
 	  (> (prefix-numeric-value arg) 0)))
-  (set-buffer-modified-p (buffer-modified-p))) ;No-op, but updates mode line.
+  (force-mode-line-update))
 
 ;; This is very useful for cancelling a selection in the minibuffer without 
 ;; aborting the minibuffer.