Mercurial > emacs

changeset 11561:56399c411b8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(double-mode): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:20:59 +0000
parents d90395d3b0ad
children 8ff50a0715e1
files lisp/double.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/double.el	Tue Apr 25 22:20:30 1995 +0000
+++ b/lisp/double.el	Tue Apr 25 22:20:59 1995 +0000
@@ -174,8 +174,8 @@
   "Toggle Double mode.
 With prefix arg, turn Double mode on iff arg is positive.
 
-When Double mode is on, some keys will insert will insert different
-strings when pressed twice.  See variable `double-map' for details."
+When Double mode is on, some keys will insert different strings
+when pressed twice.  See variable `double-map' for details."
   (interactive "P")
   (if (or (and (null arg) double-mode)
 	  (<= (prefix-numeric-value arg) 0))
@@ -185,13 +185,13 @@
 	    (let ((double-map))
 	      (double-setup))
 	    (setq double-mode nil)
-	    (set-buffer-modified-p (buffer-modified-p))))
+	    (force-mode-line-update)))
     ;;Turn it on
     (if double-mode
 	()
       (double-setup)
       (setq double-mode t)
-      (set-buffer-modified-p (buffer-modified-p)))))
+      (force-mode-line-update))))
 
 (provide 'double)