From: rearman <rearman@r717.net>
Date: Fri, 12 Sep 2025 19:42:26 +0000 (-0400)
Subject: Fix references to deleted macros
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=766c0ffe2cef1d283ca700de10a345527838f39c;p=emacsinit.git

Fix references to deleted macros
---

diff --git a/re/re-repl-defuns.el b/re/re-repl-defuns.el
index 8b03507..958caf3 100644
--- a/re/re-repl-defuns.el
+++ b/re/re-repl-defuns.el
@@ -17,11 +17,11 @@
 
 (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