summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAchim Gratz <Stromeko@Stromeko.DE>2014-09-10 10:50:05 +0200
committerAchim Gratz <Stromeko@Stromeko.DE>2014-09-10 10:50:05 +0200
commitd4a7ba2a966a1a5539318a5512f273cf91a4af4c (patch)
tree17f99325736e1beb3762f240378c040771a9e468
parent7c48bdd7a803ae11970e367bfbf49dcf1ab2314e (diff)
downloadorg-mode-d4a7ba2a966a1a5539318a5512f273cf91a4af4c.tar.gz
mk/org-fixup.el: Do not use toggle-read-only
* mk/org-fixup.el (org-make-org-version, org-make-org-loaddefs, org-make-local-mk, org-make-letterformat): Do not use `toggle-read-only' as it has been obsoleted in 24.4 and the replacement read-only-mode should not be used from Lisp in most cases. Bind `inhibit-read-only' to t instead.
-rw-r--r--mk/org-fixup.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/mk/org-fixup.el b/mk/org-fixup.el
index aa7ff09..e57eb65 100644
--- a/mk/org-fixup.el
+++ b/mk/org-fixup.el
@@ -58,8 +58,8 @@ the Git work tree)."
\f\n;; Local Variables:\n;; version-control: never
;; no-byte-compile: t
;; coding: utf-8\n;; End:\n;;; org-version.el ends here\n")
- (toggle-read-only 0)
- (write-file "org-version.el")))
+ (let ((inhibit-read-only t))
+ (write-file "org-version.el"))))
(defun org-make-org-loaddefs ()
"Make the file org-loaddefs.el in the current directory.
@@ -77,8 +77,8 @@ work correctly if this file is not up-to-date."
(insert "\f\n;; Local Variables:\n;; version-control: never\n")
(insert ";; no-byte-compile: t\n;; no-update-autoloads: t\n")
(insert ";; coding: utf-8\n;; End:\n;;; org-loaddefs.el ends here\n")
- (toggle-read-only 0)
- (save-buffer)))
+ (let ((inhibit-read-only t))
+ (save-buffer))))
(defun org-make-autoloads (&optional compile force)
"Make the files org-loaddefs.el and org-version.el in the install directory.
@@ -140,8 +140,8 @@ oldorg: # do what the old Makefile did by default.
(insert "\
# See default.mk for further configuration options.
")
- (toggle-read-only 0)
- (write-file local))
+ (let ((inhibit-read-only t))
+ (write-file local)))
nil)))
(defun org-make-letterformat (a4name lettername)
@@ -152,8 +152,8 @@ oldorg: # do what the old Makefile did by default.
(goto-char (point-min))
(while (search-forward "\\pdflayout=(0l)" nil t)
(replace-match "\\pdflayout=(1l)" nil t))
- (toggle-read-only 0)
- (write-file lettername))
+ (let ((inhibit-read-only t))
+ (write-file lettername)))
nil))
;; redefine version functions