Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix last commit

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-04-11 22:26:17 -07:00
parent a6805c1a38
commit 177ea4784f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
init.el
View File

@@ -2172,11 +2172,11 @@ of the opening paren of the current list."
(read (current-buffer))))) (read (current-buffer)))))
(and (symbolp res) sexp))))))) (and (symbolp res) sexp)))))))
(defun my/-calculate-indent-better-lists "This function is meant to advise `calculate-lisp-indent'. (defun my/-calculate-indent-better-lists (oldfun &rest args)
"This function is meant to advise `calculate-lisp-indent'.
If the point is on the second line of a list that begins with a symbol and the If the point is on the second line of a list that begins with a symbol and the
first expression on that line is lined up with the first symbol in the list first expression on that line is lined up with the first symbol in the list
above, keep the indention. Otherwise, indent as with ARGS applied to OLDFUN." above, keep the indention. Otherwise, indent as with ARGS applied to OLDFUN."
(oldfun &rest args)
(let ((init-prev-bol (pos-bol 0))) (let ((init-prev-bol (pos-bol 0)))
(or (save-excursion (or (save-excursion
(when-let* (;; if we on the first line of the buffer, do nothing (when-let* (;; if we on the first line of the buffer, do nothing