Mercurial > emacs

comparison lisp/files.el @ 46577:3ce42e66c023

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toggle-read-only): Clean up the hint message.
author Richard M. Stallman <rms@gnu.org>
date Sat, 20 Jul 2002 22:02:45 +0000
parents 42a341bf9194
children b57e5865b459
comparison
equal deleted inserted replaced
46576:a7eed458393f 46577:3ce42e66c023
3072 (view-mode-enter)) 3072 (view-mode-enter))
3073 (t (setq buffer-read-only (not buffer-read-only)) 3073 (t (setq buffer-read-only (not buffer-read-only))
3074 (force-mode-line-update))) 3074 (force-mode-line-update)))
3075 (if (vc-backend buffer-file-name) 3075 (if (vc-backend buffer-file-name)
3076 (message (substitute-command-keys 3076 (message (substitute-command-keys
3077 (concat "File is under version-control, " 3077 (concat "File is under version-control; "
3078 "consider \\[vc-next-action] to check in/out")))))) 3078 "use \\[vc-next-action] to check in/out"))))))
3079 3079
3080 (defun insert-file (filename) 3080 (defun insert-file (filename)
3081 "Insert contents of file FILENAME into buffer after point. 3081 "Insert contents of file FILENAME into buffer after point.
3082 Set mark after the inserted text. 3082 Set mark after the inserted text.
3083 3083