eewrap-eepitch-init

[Eduardo Ochs]

Sorry, my last e-mail - this one:
  https://lists.gnu.org/archive/html/eev/2024-02/msg00005.html
had an error... I forgot to set "plain text mode" in gmail and it
gmail discarded the red stars and the spaces following them.
Here are two versions of the right code:

;; <eewrap-eepitch-init>
;; Skel: (find-eewrap-links "U" "eepitch-init" "stem")
;; Test: (find-eewraptest-links "eepitch-init" "shell2")

(defun  eewrap-eepitch-init () (interactive)
  (ee-this-line-wrapn 1 'ee-wrap-eepitch-init))

(defun ee-wrap-eepitch-init (stem)
  "An internal function used by `eewrap-eepitch-init'."
  (ee-adjust-red-stars (ee-template0 "\
\17 (eepitch-init-{stem})
\17 (eepitch-{stem})")))

(defun ee-wrap-eepitch-init (stem)
  "An internal function used by `eewrap-eepitch-init'."
  (ee-adjust-red-stars (ee-template0 "\
  (eepitch-init-{stem})
  (eepitch-{stem})")))

(define-key eev-mode-map "\M-U" 'eewrap-eepitch-init)