diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-21 22:12:43 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-21 22:12:43 +0200 |
commit | 48aacbf292fbe8d4be7761f83bf87de93497df27 (patch) | |
tree | ef1808d2ac0d8154967f14d2b07094752045e312 /lisp/server.el | |
parent | 6ddcf67052545a0f77233f1a952dc90e296cda35 (diff) | |
download | emacs-48aacbf292fbe8d4be7761f83bf87de93497df27.tar.gz |
Make many seldom-used generalized variables obsolete
The vast majority of these are unused in-tree, and many of them
perform actions that aren't obvious when reading the code.
* lisp/server.el (server-ensure-safe-dir): Prefer with-file-modes
over letf-ing default-file-modes.
(server-start): Ditto.
* lisp/winner.el (winner-set-conf): Don't use generalized variable
window-height.
* lisp/emacs-lisp/gv.el: Make most little-used generalized
variables obsolete.
* lisp/org/oc-basic.el (org-cite-basic--set-keymap): Adjust
buffer-substring generalized variable usage.
Diffstat (limited to 'lisp/server.el')
-rw-r--r-- | lisp/server.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/server.el b/lisp/server.el index a06f2f952fd..dd7bccaf331 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -544,7 +544,8 @@ Creates the directory if necessary and makes sure: (setq dir (directory-file-name dir)) (let ((attrs (file-attributes dir 'integer))) (unless attrs - (cl-letf (((default-file-modes) ?\700)) (make-directory dir t)) + (with-file-modes ?\700 + (make-directory dir t)) (setq attrs (file-attributes dir 'integer))) ;; Check that it's safe for use. @@ -691,7 +692,7 @@ server or call `\\[server-force-delete]' to forcibly disconnect it.")) (server-ensure-safe-dir server-dir) (when server-process (server-log (message "Restarting server"))) - (cl-letf (((default-file-modes) ?\700)) + (with-file-modes ?\700 (add-hook 'suspend-tty-functions #'server-handle-suspend-tty) (add-hook 'delete-frame-functions #'server-handle-delete-frame) (add-hook 'kill-emacs-query-functions |