From 30b349d43c1483c7608a020460b535cc0fb29ec1 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 26 Jun 2023 16:02:49 +1000 Subject: Adding license files and updating readmes * COPYING.agpl3: agpl3 license file * README.org: added readme for the repo * emacs/.emacs.d/init/ycp-editing.el: fix hook names * emacs/.emacs.d/init/ycp-project.el: include `my-licenses' in local-config * emacs/.emacs.d/lisp/my/my-editing.el: fix insert pair prompt * emacs/README.org: Move acknowledgement to the main readme; fix verbatim to code. Add instruction on local-config generation * manual/README.org: minor change --- emacs/.emacs.d/lisp/my/my-editing.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/lisp/my/my-editing.el') diff --git a/emacs/.emacs.d/lisp/my/my-editing.el b/emacs/.emacs.d/lisp/my/my-editing.el index 940a338..b420d89 100644 --- a/emacs/.emacs.d/lisp/my/my-editing.el +++ b/emacs/.emacs.d/lisp/my/my-editing.el @@ -251,9 +251,10 @@ Call the commands `my-escape-url-line' and (defun my--character-prompt (chars) "Helper of `my-insert-pair-completion' to read CHARS." (let ((def (car my--character-hist))) - (completing-read - (format "Select character [%s]: " def) - chars nil t nil 'my--character-hist def))) + (let ((electric-pair-mode nil)) + (completing-read + (format "Select character [%s]: " def) + chars nil t nil 'my--character-hist def)))) ;;;###autoload (defun my-insert-pair (pair &optional count) -- cgit v1.2.3