Mercurial > emacs
comparison lisp/format.el @ 56980:1c1ca003ded1
(buffer-auto-save-file-format): Make it permanent local.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Wed, 08 Sep 2004 02:44:32 +0000 |
parents | b8d3cea56c44 |
children | 6fb026ad601f cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
56979:f0f48b9999fa | 56980:1c1ca003ded1 |
---|---|
35 ;; listed in the variable `buffer-file-format', and become the default | 35 ;; listed in the variable `buffer-file-format', and become the default |
36 ;; format for saving the buffer. To save a buffer in a different format, | 36 ;; format for saving the buffer. To save a buffer in a different format, |
37 ;; change this variable, or use `format-write-file'. | 37 ;; change this variable, or use `format-write-file'. |
38 ;; | 38 ;; |
39 ;; Auto-save files are normally created in the same format as the visited | 39 ;; Auto-save files are normally created in the same format as the visited |
40 ;; file, but the variable `auto-save-file-format' can be set to a | 40 ;; file, but the variable `buffer-auto-save-file-format' can be set to a |
41 ;; particularly fast or otherwise preferred format to be used for | 41 ;; particularly fast or otherwise preferred format to be used for |
42 ;; auto-saving (or nil to do no encoding on auto-save files, but then you | 42 ;; auto-saving (or nil to do no encoding on auto-save files, but then you |
43 ;; risk losing any text-properties in the buffer). | 43 ;; risk losing any text-properties in the buffer). |
44 ;; | 44 ;; |
45 ;; You can manually translate a buffer into or out of a particular format | 45 ;; You can manually translate a buffer into or out of a particular format |
60 ;; string->string translations in a reversible manner. | 60 ;; string->string translations in a reversible manner. |
61 | 61 |
62 ;;; Code: | 62 ;;; Code: |
63 | 63 |
64 (put 'buffer-file-format 'permanent-local t) | 64 (put 'buffer-file-format 'permanent-local t) |
65 (put 'buffer-auto-save-file-format 'permanent-local t) | |
65 | 66 |
66 (defvar format-alist | 67 (defvar format-alist |
67 '((text/enriched "Extended MIME text/enriched format." | 68 '((text/enriched "Extended MIME text/enriched format." |
68 "Content-[Tt]ype:[ \t]*text/enriched" | 69 "Content-[Tt]ype:[ \t]*text/enriched" |
69 enriched-decode enriched-encode t enriched-mode) | 70 enriched-decode enriched-encode t enriched-mode) |