diff options
author | Case Duckworth | 2021-09-06 12:52:11 -0500 |
---|---|---|
committer | Case Duckworth | 2021-09-06 12:52:21 -0500 |
commit | 9b80cec576f7eadd51a59ddc9730d2cb53140682 (patch) | |
tree | 1d70ace34af69fe583e6c789046f0cbd31f3bf95 | |
parent | Reorganize eshell config (diff) | |
download | emacs-9b80cec576f7eadd51a59ddc9730d2cb53140682.tar.gz emacs-9b80cec576f7eadd51a59ddc9730d2cb53140682.zip |
Whitespace
-rw-r--r-- | init.el | 10 | ||||
-rw-r--r-- | lisp/acdw-eshell.el | 1 |
2 files changed, 5 insertions, 6 deletions
diff --git a/init.el b/init.el index a394d9a..b73cc80 100644 --- a/init.el +++ b/init.el | |||
@@ -1450,14 +1450,14 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1450 | (setup (:straight persistent-scratch) | 1450 | (setup (:straight persistent-scratch) |
1451 | (:option persistent-scratch-backup-directory (acdw/dir "scratch" t) | 1451 | (:option persistent-scratch-backup-directory (acdw/dir "scratch" t) |
1452 | persistent-scratch-keep-n-newest-backups 12) | 1452 | persistent-scratch-keep-n-newest-backups 12) |
1453 | 1453 | ||
1454 | (persistent-scratch-setup-default) | 1454 | (persistent-scratch-setup-default) |
1455 | 1455 | ||
1456 | (mapc (lambda (buf) | 1456 | (mapc (lambda (buf) |
1457 | (with-current-buffer buf | 1457 | (with-current-buffer buf |
1458 | (when (funcall persistent-scratch-scratch-buffer-p-function) | 1458 | (when (funcall persistent-scratch-scratch-buffer-p-function) |
1459 | (setq lexical-binding t) | ||
1460 | (persistent-scratch-mode +1)))) | 1459 | (persistent-scratch-mode +1)))) |
1460 | |||
1461 | (buffer-list))) | 1461 | (buffer-list))) |
1462 | 1462 | ||
1463 | (setup (:straight-if pkgbuild-mode | 1463 | (setup (:straight-if pkgbuild-mode |
@@ -1553,7 +1553,7 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1553 | ;; user-full-name)) | 1553 | ;; user-full-name)) |
1554 | ;; "! " | 1554 | ;; "! " |
1555 | ;; "Welcome to GNU Emacs.\n\n") | 1555 | ;; "Welcome to GNU Emacs.\n\n") |
1556 | initial-major-mode 'emacs-lisp-mode) | 1556 | ) |
1557 | 1557 | ||
1558 | (add-hook 'kill-buffer-query-functions | 1558 | (add-hook 'kill-buffer-query-functions |
1559 | (defun kill-buffer-query@immortal-scratch () | 1559 | (defun kill-buffer-query@immortal-scratch () |
@@ -1664,7 +1664,7 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1664 | ,reserve))) | 1664 | ,reserve))) |
1665 | 'face '(:inherit simple-modeline-space)) | 1665 | 'face '(:inherit simple-modeline-space)) |
1666 | right)))) | 1666 | right)))) |
1667 | 1667 | ||
1668 | (simple-modeline-mode +1)) | 1668 | (simple-modeline-mode +1)) |
1669 | 1669 | ||
1670 | (setup (:straight-if sly | 1670 | (setup (:straight-if sly |
diff --git a/lisp/acdw-eshell.el b/lisp/acdw-eshell.el index 104b7d1..fa27299 100644 --- a/lisp/acdw-eshell.el +++ b/lisp/acdw-eshell.el | |||
@@ -22,7 +22,6 @@ | |||
22 | 22 | ||
23 | ;;; Eshell starting and quitting | 23 | ;;; Eshell starting and quitting |
24 | 24 | ||
25 | ;;;###autoload | ||
26 | (defun eshell-quit-or-delete-char (arg) | 25 | (defun eshell-quit-or-delete-char (arg) |
27 | "Delete the character to the right, or quit eshell on an empty line." | 26 | "Delete the character to the right, or quit eshell on an empty line." |
28 | (interactive "p") | 27 | (interactive "p") |