[Emacs-diffs] /srv/bzr/emacs/trunk r105098: Only do the `C-x C-q' warning on VC backends where it makes sense.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105098
fixes bug(s): http://debbugs.gnu.org/2623
author: Leo <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-07-11 15:56:49 +0200
message:
  Only do the `C-x C-q' warning on VC backends where it makes sense.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-11 13:46:46 +0000
+++ b/lisp/ChangeLog    2011-07-11 13:56:49 +0000
@@ -1,3 +1,8 @@
+2011-07-11  Leo  <address@hidden>  (tiny change)
+
+       * files.el (toggle-read-only): Only do the `C-x C-q' warning on VC
+       backends where it makes sense (bug#2623).
+
 2011-07-11  Lars Magne Ingebrigtsen  <address@hidden>
 
        * dired-x.el (dired-guess-default): Remove duplicate shell command

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-07-04 16:08:16 +0000
+++ b/lisp/files.el     2011-07-11 13:56:49 +0000
@@ -4694,7 +4694,7 @@
       (view-mode-enter))
      (t (setq buffer-read-only (not buffer-read-only))
         (force-mode-line-update)))
-    (if (vc-backend buffer-file-name)
+    (if (memq (vc-backend buffer-file-name) '(RCS SCCS))
         (message "%s" (substitute-command-keys
                   (concat "File is under version-control; "
                           "use \\[vc-next-action] to check in/out"))))))