]> git.earman.xyz Git - emacsinit.git/commitdiff
Fix references to deleted macros
authorrearman <rearman@r717.net>
Fri, 12 Sep 2025 19:42:26 +0000 (15:42 -0400)
committerrearman <rearman@r717.net>
Fri, 12 Sep 2025 19:42:26 +0000 (15:42 -0400)
re/re-repl-defuns.el

index 8b035075773d95944f26770f1feb9d38c0c037b3..958caf3c9bb61be63b9abaf6c2ac8397fc9bceb7 100644 (file)
 
 (defun re/sexp-drop-paren-p ()
   "Returns t if sexp needs fewer parens to balance."
-  (<0 (car (syntax-ppss))))
+  (< (car (syntax-ppss)) 0))
 
 (defun re/sexp-need-paren-p ()
   "Returns t if sexp needs more parens to balance."
-  (>0 (car (syntax-ppss))))
+  (> (car (syntax-ppss)) 0))
 
 (defun re/sexp-unbalanced-count ()
   "Returns distance from balanced sexp."
@@ -56,21 +56,5 @@ Stolen from https://depp.brause.cc/dotemacs"
       (eshell-life-is-too-much)
     (delete-char arg)))
 
-;; IELM
-;; (defun re/ielm-init-history ()
-;;   "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
-;;   (let ((path (expand-file-name "ielm/history" user-emacs-directory)))
-;;     (make-directory (file-name-directory path) t)
-;;     (setq-local comint-input-ring-file-name path))
-;;   (setq-local comint-input-ring-size 10000 comint-input-ignoredups t)
-;;   (comint-read-input-ring))
-
-;; (defun re/ielm-write-history (&rest _args)
-;;   "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
-;;   (with-file-modes 384 (comint-write-input-ring)))
-
-;; (add-hook 'ielm-mode-hook #'re/ielm-init-history)
-;; (advice-add 'ielm-send-input :after #'re/ielm-write-history)
-
 (provide 're-repl-defuns)
 ;;; re-repl-defuns.el ends here