文字列の先頭及び末尾から空白(又は指定文字)を取り除く emacs lisp

trim.el

(defun trim (string &optional needle)
  "Remove needle at the beginning and endding of string."
  (let ((n (if needle needle "[ \t\n\r]+"))
        (s (if (string-match (concat "\\`" n) string) ; "\`" バッファや文字列の先頭
                (replace-match "" t t string)
              string)))
    (if (string-match (concat n "+\\'") s) ; "\'" バッファや文字列の末尾
        (replace-match "" t t s)
      s)))