From d8a6d82c4d34286b377fd7bddd4be0116e8dd4b9 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 1 Jun 2019 10:28:30 +0300 Subject: [PATCH 1/3] Improve documentation of 'safe-local-variable' property * doc/lispref/variables.texi (File Local Variables): Document how to define 'safe-local-variable' properties for built-in variables. --- doc/lispref/variables.texi | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/doc/lispref/variables.texi b/doc/lispref/variables.texi index 153a80a4443..1a1860df307 100644 --- a/doc/lispref/variables.texi +++ b/doc/lispref/variables.texi @@ -1847,6 +1847,11 @@ variables have @code{safe-local-variable} properties; these include For boolean-valued variables that are safe, use @code{booleanp} as the property value. + If you want to define @code{safe-local-variable} properties for +variables defined in C source code, add the names and the properties +of those variables to the list in the ``Safe local variables'' section +of @file{files.el}. + @cindex autoload cookie, and safe values of variable When defining a user option using @code{defcustom}, you can set its @code{safe-local-variable} property by adding the arguments From daf32f1f87b3d71cddd9ab2e9e4c3f5b523ae409 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 1 Jun 2019 18:52:11 +0300 Subject: [PATCH 2/3] Speed up redisplay of HELLO * etc/HELLO: Set 'inhibit-compacting-font-caches' non-nil locally. (Bug#36032) * lisp/files.el: Add 'inhibit-compacting-font-caches' to the list of built-in variables for which we set up 'safe-local-variable' properties. --- etc/HELLO | 1 + lisp/files.el | 1 + 2 files changed, 2 insertions(+) diff --git a/etc/HELLO b/etc/HELLO index ae52e94b065..f424a2ab8aa 100644 --- a/etc/HELLO +++ b/etc/HELLO @@ -96,4 +96,5 @@ along with GNU Emacs. If not, see . ;;; tab-width: 32 ;;; bidi-display-reordering: t ;;; coding: iso-2022-7bit +;;; inhibit-compacting-font-caches: t ;;; End: diff --git a/lisp/files.el b/lisp/files.el index f3b502095dd..2187eba1a42 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3233,6 +3233,7 @@ asking you for confirmation." (fill-column . integerp) ;; C source code (indent-tabs-mode . booleanp) ;; C source code (left-margin . integerp) ;; C source code + (inhibit-compacting-font-caches . booleanp) ;; C source code (no-update-autoloads . booleanp) (lexical-binding . booleanp) ;; C source code (tab-width . integerp) ;; C source code From 008b263feeba8951a95bec93ec0a9e263cf230f7 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 1 Jun 2019 11:33:25 -0700 Subject: [PATCH 3/3] * lisp/gnus/gnus.el: Mark autoloaded macros as such. This avoids a build failure. --- lisp/gnus/gnus.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index c3a57800e39..4437ee972e2 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -2745,12 +2745,12 @@ gnus-registry.el will populate this if it's loaded.") (let ((interactive (nth 1 (memq ':interactive package)))) (mapcar (lambda (function) - (let (keymap) + (let (type) (when (consp function) - (setq keymap (car (memq 'keymap function))) + (setq type (cadr function)) (setq function (car function))) (unless (fboundp function) - (autoload function (car package) nil interactive keymap)))) + (autoload function (car package) nil interactive type)))) (if (eq (nth 1 package) ':interactive) (nthcdr 3 package) (cdr package))))) @@ -2863,8 +2863,8 @@ gnus-registry.el will populate this if it's loaded.") gnus-list-of-unread-articles gnus-list-of-read-articles gnus-offer-save-summaries gnus-make-thread-indent-array gnus-summary-exit gnus-update-read-articles gnus-summary-last-subject - gnus-summary-skip-intangible gnus-summary-article-number - gnus-data-header gnus-data-find) + (gnus-summary-skip-intangible macro) (gnus-summary-article-number macro) + (gnus-data-header macro) (gnus-data-find macro)) ("gnus-group" gnus-group-insert-group-line gnus-group-quit gnus-group-list-groups gnus-group-first-unread-group gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc