0

I have a function to underline Chinese characters with zero width spaces in org-mode.

(defun ctext-uline-begin ()
  "Underscore with invisible space before for underlining Chinese texts."
  (insert "​_"))

(defun ctext-uline-end ()
    "Underscore with invisible space after for underlining Chinese texts."
  (insert "_​"))

(defun ctext-underline()
  (interactive)
  (if (region-active-p)
      (progn
          (goto-char (region-end))
          (ctext-uline-end)
          (goto-char (region-beginning))
          (ctext-uline-begin)))
  (progn
    (ctext-uline-begin)
    (read-event "Press Enter to Complete.")
    (ctext-uline-end)))

The function wraps "_" with zero width spaces around the Chinese characters when region is active.

When no region is selected, I'd like it to insert uline-begin, wait for user to hit RET, then insert uline-end.

The above function almost did it.

How do we get the user to 'Press Enter to Continue' in Elisp?

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.