masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 19:03:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; Normalize spacing in last change

Browse source
This commit is contained in:
Sean Whitton 2025-04-11 10:01:31 +08:00
parent c0ea954d0f
commit 37164032f6
5 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/abbrev.el
View file

@ -271,7 +271,7 @@ abbrevs have been saved."
(when (unencodable-char-position (point-min) (point-max) 'utf-8) (when (unencodable-char-position (point-min) (point-max) 'utf-8)
(setq coding-system-for-write 'utf-8-emacs)) (setq coding-system-for-write 'utf-8-emacs))
(goto-char (point-min)) (goto-char (point-min))
(insert (format ";;-*-coding: %S; lexical-binding:t -*-\n" (insert (format ";; -*- coding: %S; lexical-binding: t -*-\n"
coding-system-for-write)) coding-system-for-write))
(write-region nil nil file nil (and (not verbose) 0))))) (write-region nil nil file nil (and (not verbose) 0)))))

2
lisp/filesets.el
View file

@ -2336,7 +2336,7 @@ fileset thinks this is necessary or not."
(delete-file filesets-menu-cache-file)) (delete-file filesets-menu-cache-file))
;;(message "Filesets: saving menu cache") ;;(message "Filesets: saving menu cache")
(with-temp-buffer (with-temp-buffer
(insert ";; -*- mode: emacs-lisp; lexical-binding:t -*-\n") (insert ";; -*- mode: emacs-lisp; lexical-binding: t -*-\n")
(dolist (this filesets-menu-cache-contents) (dolist (this filesets-menu-cache-contents)
(if (get this 'custom-type) (if (get this 'custom-type)
(progn (progn

2
lisp/recentf.el
View file

@ -1318,7 +1318,7 @@ Optional argument N must be a valid digit number. It defaults to 1.
(defconst recentf-save-file-header (defconst recentf-save-file-header
;; FIXME: This should arguably be a `lisp-data' file, but currently ;; FIXME: This should arguably be a `lisp-data' file, but currently
;; it contains and is used as an executable ELisp code. ;; it contains and is used as an executable ELisp code.
";;; Automatically generated by `recentf' on %s -*- mode: emacs-lisp; lexical-binding:t -*-\n" ";;; Automatically generated by `recentf' on %s -*- mode: emacs-lisp; lexical-binding: t -*-\n"
"Header to be written into the `recentf-save-file'.") "Header to be written into the `recentf-save-file'.")
(defconst recentf-save-file-coding-system (defconst recentf-save-file-coding-system

2
lisp/savehist.el
View file

@ -244,7 +244,7 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
(insert (insert
(format-message (format-message
(concat (concat
";; -*- mode: emacs-lisp; lexical-binding:t; coding: %s -*-\n" ";; -*- mode: emacs-lisp; lexical-binding: t; coding: %s -*-\n"
";; Minibuffer history file, automatically generated by `savehist'.\n" ";; Minibuffer history file, automatically generated by `savehist'.\n"
"\n") "\n")
savehist-coding-system)) savehist-coding-system))

2
lisp/url/url-cookie.el
View file

@ -150,7 +150,7 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead."
(url-cookie-clean-up) (url-cookie-clean-up)
(url-cookie-clean-up t) (url-cookie-clean-up t)
(with-temp-buffer (with-temp-buffer
(insert ";; Emacs-W3 HTTP cookies file -*- lexical-binding:t -*-\n" (insert ";; Emacs-W3 HTTP cookies file -*- lexical-binding: t -*-\n"
";; Automatically generated file!!! DO NOT EDIT!!!\n\n" ";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
"(setq url-cookie-storage\n '") "(setq url-cookie-storage\n '")
(let ((print-length nil) (print-level nil)) (let ((print-length nil) (print-level nil))