lstripとかrstripとか欲しくなる。

例えば

shell-command-to-stringで返ってきた文字列の末尾にいらない改行が含まれたりだとか。
そんなわけで、自分で定義して使っています。

code

(defun rstrip (str) (replace-regexp-in-string "[ \t\n]+$" "" str))
;;(defun lstrip (str) (replace-regexp-in-string "^[ \t\n]+$" "" str))
(defun lstrip (str) (replace-regexp-in-string "^[ \t\n]+" "" str))
(defun strip (str) (lstrip (rstrip str)))

もっと良い書き方や同じような処理をする関数があったら教えてください。

追記

kitokitokiさんの指摘により$を削除。