Mercurial > hg > xemacs-beta

comparison lisp/prim/modeline.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children e04119814345
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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)