acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Comment out reb-builder stuff, for now

This commit is contained in:
Case Duckworth 2021-09-02 23:53:47 -05:00
parent 1f3c9a1fe7
commit c648e35b2a
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
init.el
View File

@ -574,21 +574,21 @@ like a dumbass."
(add-hook 'after-save-hook (add-hook 'after-save-hook
#'executable-make-buffer-file-executable-if-script-p)) #'executable-make-buffer-file-executable-if-script-p))
(setup re-builder ;; (setup re-builder
(require 'acdw-re) ;; (require 'acdw-re)
(advice-add 're-builder :before #'acdw/re-builder-save-state) ;; (advice-add 're-builder :before #'acdw/re-builder-save-state)
(add-hook 'reb-mode-hook #'paredit-mode) ;; (add-hook 'reb-mode-hook #'paredit-mode)
(:global "<f2>" re-builder) ;; (:global "<f2>" re-builder)
(dolist (map '(reb-mode-map reb-lisp-mode-map)) ;; (dolist (map '(reb-mode-map reb-lisp-mode-map))
(let ((setup-map map)) ;; (let ((setup-map map))
(:bind "RET" reb-replace-regexp ;; (:bind "RET" reb-replace-regexp
"M-n" reb-next-match ;; "M-n" reb-next-match
"M-p" reb-prev-match ;; "M-p" reb-prev-match
"C-g" reb-quit ;; "C-g" reb-quit
"C-c C-k" reb-quit)))) ;; "C-c C-k" reb-quit))))
(setup repeat (setup repeat
;; new for Emacs 28! ;; new for Emacs 28!