Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 41ff10fd062f
children 558f606b08ae
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
437 "Toggle read-only status of buffer on this line, perhaps via version control." 437 "Toggle read-only status of buffer on this line, perhaps via version control."
438 (interactive) 438 (interactive)
439 (let (char) 439 (let (char)
440 (save-excursion 440 (save-excursion
441 (set-buffer (Buffer-menu-buffer t)) 441 (set-buffer (Buffer-menu-buffer t))
442 (vc-toggle-read-only) 442 (modeline-toggle-read-only)
443 (setq char (if buffer-read-only ?% ? ))) 443 (setq char (if buffer-read-only ?% ? )))
444 (save-excursion 444 (save-excursion
445 (beginning-of-line) 445 (beginning-of-line)
446 (forward-char 2) 446 (forward-char 2)
447 (if (/= (following-char) char) 447 (if (/= (following-char) char)