diff options
| author | Stefan Kangas | 2024-12-15 19:15:29 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2024-12-15 19:33:59 +0100 |
| commit | c729d224ca7bd55d9f49af9d730af45663a3f3d5 (patch) | |
| tree | 566c76cf71476c16c7c0cdf6a87470ece7acd247 | |
| parent | f818744cd4b1dddece0a221b06e6e83740e06e2d (diff) | |
| download | emacs-c729d224ca7bd55d9f49af9d730af45663a3f3d5.tar.gz emacs-c729d224ca7bd55d9f49af9d730af45663a3f3d5.zip | |
Remove some more references to pure space
* lisp/auth-source.el (read-passwd-map):
* lisp/emacs-lisp/eldoc.el (eldoc-message-commands)
(eldoc-last-data): Remove some references to pure space.
| -rw-r--r-- | lisp/auth-source.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/lisp/auth-source.el b/lisp/auth-source.el index 1e0cde75583..d445c339571 100644 --- a/lisp/auth-source.el +++ b/lisp/auth-source.el | |||
| @@ -2515,8 +2515,6 @@ Adapt also mode line." | |||
| 2515 | (read-passwd--hide-password))))) | 2515 | (read-passwd--hide-password))))) |
| 2516 | 2516 | ||
| 2517 | (defvar read-passwd-map | 2517 | (defvar read-passwd-map |
| 2518 | ;; BEWARE: `defconst' would purecopy it, breaking the sharing with | ||
| 2519 | ;; minibuffer-local-map along the way! | ||
| 2520 | (let ((map (make-sparse-keymap))) | 2518 | (let ((map (make-sparse-keymap))) |
| 2521 | (set-keymap-parent map minibuffer-local-map) | 2519 | (set-keymap-parent map minibuffer-local-map) |
| 2522 | (define-key map "\C-u" #'delete-minibuffer-contents) ;bug#12570 | 2520 | (define-key map "\C-u" #'delete-minibuffer-contents) ;bug#12570 |
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index aa1871ac482..f412a38d6f5 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el | |||
| @@ -154,7 +154,6 @@ this file since the obarray is initialized at load time. | |||
| 154 | Remember to keep it a prime number to improve hash performance.") | 154 | Remember to keep it a prime number to improve hash performance.") |
| 155 | 155 | ||
| 156 | (defvar eldoc-message-commands | 156 | (defvar eldoc-message-commands |
| 157 | ;; Don't define as `defconst' since it would then go to (read-only) purespace. | ||
| 158 | (obarray-make eldoc-message-commands-table-size) | 157 | (obarray-make eldoc-message-commands-table-size) |
| 159 | "Commands after which it is appropriate to print in the echo area. | 158 | "Commands after which it is appropriate to print in the echo area. |
| 160 | ElDoc does not try to print function arglists, etc., after just any command, | 159 | ElDoc does not try to print function arglists, etc., after just any command, |
| @@ -166,7 +165,6 @@ directly. Instead, use `eldoc-add-command' and `eldoc-remove-command'.") | |||
| 166 | 165 | ||
| 167 | ;; Not a constant. | 166 | ;; Not a constant. |
| 168 | (defvar eldoc-last-data (make-vector 3 nil) | 167 | (defvar eldoc-last-data (make-vector 3 nil) |
| 169 | ;; Don't define as `defconst' since it would then go to (read-only) purespace. | ||
| 170 | "Bookkeeping; elements are as follows: | 168 | "Bookkeeping; elements are as follows: |
| 171 | 0 - contains the last symbol read from the buffer. | 169 | 0 - contains the last symbol read from the buffer. |
| 172 | 1 - contains the string last displayed in the echo area for variables, | 170 | 1 - contains the string last displayed in the echo area for variables, |