[elpa] 19/38: Use read-only-mode in ggtags-toggle-project-read-only

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 570c2ef78cca98fb9134765f1edd459fdeaf9d60
Author: Leo Liu <address@hidden>
Date:   Mon Mar 17 10:36:23 2014 +0800

    Use read-only-mode in ggtags-toggle-project-read-only
---
 ggtags.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index d7fff8f..b5118ad 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -75,7 +75,9 @@
 
 (eval-and-compile
   (or (fboundp 'user-error)
-      (defalias 'user-error 'error)))
+      (defalias 'user-error 'error))
+  (or (fboundp 'read-only-mode)
+      (defalias 'read-only-mode 'toggle-read-only)))
 
 (defgroup ggtags nil
   "GNU Global source code tagging system."
@@ -473,7 +475,7 @@ Value is new modtime if updated."
     (save-buffer)
     (kill-buffer)
     (when buffer-file-name
-      (setq buffer-read-only val))
+      (read-only-mode (if val +1 -1)))
     (when (called-interactively-p 'interactive)
       (message "Project read-only-mode is %s" (if val "on" "off")))
     val))