• 1 Post
  • 1 Comment
Joined 11 months ago
cake
Cake day: October 31st, 2023

help-circle
  • It was exactly this. I had a setup hook that was messing it up. Disabling it fixed the issue. Thanks for this post! This was the hook:

    (defun nconc-safe (ls1 ls2)
      (let ((tail ls1))
        (while (and (cdr tail) (not (eq tail ls2)))
          (setq tail (cdr tail)))
        (unless (eq tail ls2)
          (if (null tail)
              (setq ls1 ls2)
            (setcdr tail ls2)))
        ls1))
    
    (defun my-paredit-hook ()
      (enable-paredit-mode)
      (nconc-safe paredit-commands
                  '("Extreme Barfage & Slurpage"
                    (("C-M-)")
                     'paredit-slurp-all-the-way-forward
                     ("(foo (bar |baz) quux zot)"
                      "(foo (bar |baz quux zot))")
                     ("(a b ((c| d)) e f)"
                      "(a b ((c| d)) e f)")
                     )
                    (("C-M-}" "M-F")
                     'paredit-barf-all-the-way-forward
                     ("(foo (bar |baz quux) zot)"
                      "(foo (bar|) baz quux zot)")
                     )
                    (("C-M-(")
                     'paredit-slurp-all-the-way-backward
                     ("(foo bar (baz| quux) zot)"
                      "((foo bar baz| quux) zot)")
                     ("(a b ((c| d)) e f)"
                      "(a b ((c| d)) e f)")
                     )
                    (("C-M-{" "M-B")
                     'paredit-barf-all-the-way-backward
                     ("(foo (bar baz |quux) zot)"
                      "(foo bar baz (|quux) zot)")))))
    
    ;; Commenting out this line solved the issue
    ;;(add-hook 'eval-expression-minibuffer-setup-hook #'my-paredit-hook)
    

    I think it must have been that (enable-paredit-mode) overrode the RET binding.