(interactive "e")
(save-selected-window
(select-window (posn-window (event-start event)))
- (toggle-read-only nil t)
- (force-mode-line-update)))
+ (call-interactively 'toggle-read-only)))
(defun mode-line-toggle-modified (event)
"Toggle the buffer-modified flag from the mode-line."
If the text at the mouse position has a `help-echo' text
property, that overrides this variable."
:type '(choice (const :tag "No help" :value nil) string)
- :version "24.2"
+ :version "24.3"
:group 'mode-line)
(defvar mode-line-front-space '(:eval (if (display-graphic-p) " " "-"))