Function: mh-quote-pick-expr

mh-quote-pick-expr is an autoloaded and byte-compiled function defined in mh-utils.el.gz.

Signature

(mh-quote-pick-expr PICK-EXPR)

Documentation

Quote mh-pick-regexp-chars in PICK-EXPR.

PICK-EXPR is a list of strings. Return nil if PICK-EXPR is nil.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-utils.el.gz
;;;###mh-autoload
(defun mh-quote-pick-expr (pick-expr)
  "Quote `mh-pick-regexp-chars' in PICK-EXPR.
PICK-EXPR is a list of strings. Return nil if PICK-EXPR is nil."
  (let ((quoted-pick-expr))
    (dolist (string pick-expr)
      (when (and string
                 (not (string-equal string "")))
        (cl-loop for i from 0 to (1- (length mh-pick-regexp-chars)) do
                 (let ((s (string ?\\ (aref mh-pick-regexp-chars i))))
                   (setq string (replace-regexp-in-string s s string t t))))
        (setq quoted-pick-expr (append quoted-pick-expr (list string)))))
    quoted-pick-expr))