Mercurial > hg > xemacs-beta

comparison lisp/prim/modeline.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children fe104dbd9147
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
392 (make-variable-buffer-local 'modeline-process) 392 (make-variable-buffer-local 'modeline-process)
393 393
394 (defvar modeline-modified-map (make-sparse-keymap 'modeline-modified-map) 394 (defvar modeline-modified-map (make-sparse-keymap 'modeline-modified-map)
395 "Keymap consulted for mouse-clicks on the modeline-modified string.") 395 "Keymap consulted for mouse-clicks on the modeline-modified string.")
396 (define-key modeline-modified-map 'button2 396 (define-key modeline-modified-map 'button2
397 (make-modeline-command-wrapper 'toggle-read-only)) 397 (make-modeline-command-wrapper 'vc-toggle-read-only))
398 398
399 (defvar modeline-modified-extent (make-extent nil nil) 399 (defvar modeline-modified-extent (make-extent nil nil)
400 "Extent covering the modeline-modified string.") 400 "Extent covering the modeline-modified string.")
401 (set-extent-face modeline-modified-extent 'modeline-mousable) 401 (set-extent-face modeline-modified-extent 'modeline-mousable)
402 (set-extent-keymap modeline-modified-extent modeline-modified-map) 402 (set-extent-keymap modeline-modified-extent modeline-modified-map)