diff options
author | Michael Sperber <sperber@deinprogramm.de> | 2010-05-24 09:20:23 -0400 |
---|---|---|
committer | Dan Davison <davison@stats.ox.ac.uk> | 2010-05-24 09:20:23 -0400 |
commit | 67b5a92c7854952e9e5d71a26c376fe5fa11db45 (patch) | |
tree | 6aa261acae281822ac7f509d6fb6bc1e035b25cd | |
parent | 3685d6b49618a2d19bd7c472f81997b9640dd527 (diff) | |
download | org-mode-67b5a92c7854952e9e5d71a26c376fe5fa11db45.tar.gz |
Fix org-src saving mechanism for XEmacs
write-contents-hooks is not buffer-local by default in XEmacs 21.4.
-rw-r--r-- | lisp/org-src.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 0ac8e6c..63c749c 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -644,8 +644,11 @@ the language, a switch telling if the content should be in a single line." (setq buffer-file-name (concat (buffer-file-name (marker-buffer org-edit-src-beg-marker)) "[" (buffer-name) "]")) - (set (if (featurep 'xemacs) 'write-contents-hooks 'write-contents-functions) - '(org-edit-src-save))) + (if (featurep 'xemacs) + (progn + (make-variable-buffer-local 'write-contents-hooks) ; needed only for 21.4 + (setq write-contents-hooks '(org-edit-src-save))) + (setq write-contents-functions '(org-edit-src-save)))) (setq buffer-read-only t)))) (org-add-hook 'org-src-mode-hook 'org-src-mode-configure-edit-buffer) |