diff options
| -rw-r--r-- | lisp/buff-menu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 88e439a0539..a0b45bf64b9 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -359,12 +359,12 @@ The current window remains selected." | |||
| 359 | (bury-buffer menu))) | 359 | (bury-buffer menu))) |
| 360 | 360 | ||
| 361 | (defun Buffer-menu-toggle-read-only () | 361 | (defun Buffer-menu-toggle-read-only () |
| 362 | "Toggle read-only status of buffer on this line." | 362 | "Toggle read-only status of buffer on this line, perhaps via version control." |
| 363 | (interactive) | 363 | (interactive) |
| 364 | (let (char) | 364 | (let (char) |
| 365 | (save-excursion | 365 | (save-excursion |
| 366 | (set-buffer (Buffer-menu-buffer t)) | 366 | (set-buffer (Buffer-menu-buffer t)) |
| 367 | (toggle-read-only) | 367 | (vc-toggle-read-only) |
| 368 | (setq char (if buffer-read-only ?% ? ))) | 368 | (setq char (if buffer-read-only ?% ? ))) |
| 369 | (save-excursion | 369 | (save-excursion |
| 370 | (beginning-of-line) | 370 | (beginning-of-line) |