diff options
| author | Juri Linkov | 2020-04-20 02:13:50 +0300 |
|---|---|---|
| committer | Juri Linkov | 2020-04-20 02:13:50 +0300 |
| commit | 7686c7880399718865c83747c63fce3e58b1da1b (patch) | |
| tree | e4c39743ec0fed06cec8344728bda3e8fd9d4242 | |
| parent | e95703c2db48d5f5ce465e2cf2b9a3165f8ecb2b (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/saveplace.el | 2 |
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)) |