diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:20:59 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:20:59 +0000 |
commit | e396b02023b5a92108836909df388fffe7a68009 (patch) | |
tree | 22b664ccf72d7ce98a1ee2218b5880f0ffe278c5 /lisp/double.el | |
parent | f11ccf8fcc29c42f85bf35a805b03feb6bdb7868 (diff) | |
download | emacs-e396b02023b5a92108836909df388fffe7a68009.tar.gz |
(double-mode): Use force-mode-line-update.
Diffstat (limited to 'lisp/double.el')
-rw-r--r-- | lisp/double.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/double.el b/lisp/double.el index c64ab007f54..810babd28c9 100644 --- a/lisp/double.el +++ b/lisp/double.el @@ -174,8 +174,8 @@ first loaded.") "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 @@ strings when pressed twice. See variable `double-map' for details." (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) |