aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2020-04-20 02:13:50 +0300
committerJuri Linkov2020-04-20 02:13:50 +0300
commit7686c7880399718865c83747c63fce3e58b1da1b (patch)
treee4c39743ec0fed06cec8344728bda3e8fd9d4242
parente95703c2db48d5f5ce465e2cf2b9a3165f8ecb2b (diff)
downloademacs-scratch/add-lisp-data-mode.tar.gz
emacs-scratch/add-lisp-data-mode.zip
Add semicolon to prop-line with lisp-data mode (bug#40573).scratch/add-lisp-data-mode
* lisp/bookmark.el (bookmark-insert-file-format-version-stamp): * lisp/saveplace.el (save-place-alist-to-file): Add semicolon to separate 'coding:' and 'mode:'.
-rw-r--r--lisp/bookmark.el2
-rw-r--r--lisp/saveplace.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index f2384973e9c..0fa77ed3224 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -736,7 +736,7 @@ CODING is the symbol of the coding-system in which the file is encoded."
736 (insert 736 (insert
737 (format 737 (format
738 ";;;; Emacs Bookmark Format Version %d\ 738 ";;;; Emacs Bookmark Format Version %d\
739;;;; -*- coding: %S mode: lisp-data -*-\n" 739;;;; -*- coding: %S; mode: lisp-data -*-\n"
740 bookmark-file-format-version (coding-system-base coding))) 740 bookmark-file-format-version (coding-system-base coding)))
741 (insert ";;; This format is meant to be slightly human-readable;\n" 741 (insert ";;; This format is meant to be slightly human-readable;\n"
742 ";;; nevertheless, you probably don't want to edit it.\n" 742 ";;; nevertheless, you probably don't want to edit it.\n"
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index f78639db246..73cc8fa6fd7 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -248,7 +248,7 @@ may have changed) back to `save-place-alist'."
248 (delete-region (point-min) (point-max)) 248 (delete-region (point-min) (point-max))
249 (when save-place-forget-unreadable-files 249 (when save-place-forget-unreadable-files
250 (save-place-forget-unreadable-files)) 250 (save-place-forget-unreadable-files))
251 (insert (format ";;; -*- coding: %s mode: lisp-data -*-\n" 251 (insert (format ";;; -*- coding: %s; mode: lisp-data -*-\n"
252 (symbol-name coding-system-for-write))) 252 (symbol-name coding-system-for-write)))
253 (let ((print-length nil) 253 (let ((print-length nil)
254 (print-level nil)) 254 (print-level nil))