DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[emacs] Consistent use of booleans

Browse source
This commit is contained in:
John Doty 2025-05-27 05:59:06 +00:00
parent 12cea450ad
commit 05d0ca3652
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
site-lisp/doty-tools.el
View file

@ -236,7 +236,7 @@ non-nil."
(line-end-position)))) (line-end-position))))
(setq result (setq result
(concat result (concat result
(if include-line-numbers (if (doty-tools-bool include-line-numbers)
(format "%d: %s\n" line-num line-content) (format "%d: %s\n" line-num line-content)
(format "%s\n" line-content))))) (format "%s\n" line-content)))))
(forward-line 1)) (forward-line 1))
@ -801,12 +801,12 @@ If AT-END is non-nil, insert at end of line, otherwise at beginning."
(forward-line (1- line-number))) (forward-line (1- line-number)))
(goto-char (point-max)) (goto-char (point-max))
(forward-line (1+ line-number))) (forward-line (1+ line-number)))
(if at-end (if (doty-tools-bool at-end)
(end-of-line) (end-of-line)
(beginning-of-line)) (beginning-of-line))
(insert text) (insert text)
(format "Inserted text at %s of line %d in %s" (format "Inserted text at %s of line %d in %s"
(if at-end "end" "beginning") (if (doty-tools-bool at-end) "end" "beginning")
line-number line-number
(if (bufferp buffer-or-file) (if (bufferp buffer-or-file)
(buffer-name buffer-or-file) (buffer-name buffer-or-file)