emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

scratch/add-lisp-data-mode 7686c78: Add semicolon to prop-line with lisp


From: Juri Linkov
Subject: scratch/add-lisp-data-mode 7686c78: Add semicolon to prop-line with lisp-data mode (bug#40573).
Date: Sun, 19 Apr 2020 19:14:00 -0400 (EDT)

branch: scratch/add-lisp-data-mode
commit 7686c7880399718865c83747c63fce3e58b1da1b
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    Add semicolon to prop-line with lisp-data mode (bug#40573).
    
    * lisp/bookmark.el (bookmark-insert-file-format-version-stamp):
    * lisp/saveplace.el (save-place-alist-to-file):
    Add semicolon to separate 'coding:' and 'mode:'.
---
 lisp/bookmark.el  | 2 +-
 lisp/saveplace.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index f238497..0fa77ed 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."
   (insert
    (format
     ";;;; Emacs Bookmark Format Version %d\
-;;;; -*- coding: %S mode: lisp-data -*-\n"
+;;;; -*- coding: %S; mode: lisp-data -*-\n"
     bookmark-file-format-version (coding-system-base coding)))
   (insert ";;; This format is meant to be slightly human-readable;\n"
           ";;; nevertheless, you probably don't want to edit it.\n"
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index f78639d..73cc8fa 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -248,7 +248,7 @@ may have changed) back to `save-place-alist'."
       (delete-region (point-min) (point-max))
       (when save-place-forget-unreadable-files
        (save-place-forget-unreadable-files))
-      (insert (format ";;; -*- coding: %s mode: lisp-data -*-\n"
+      (insert (format ";;; -*- coding: %s; mode: lisp-data -*-\n"
                       (symbol-name coding-system-for-write)))
       (let ((print-length nil)
             (print-level nil))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]