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)