函数为小写并与下划线连接

时间:2013-03-20 16:07:48

标签: emacs

我想将标记的文本区域更改为下划线连接的所有小写字词。例如:

A fox caught a bird => a_fox_caught_a_bird

Emacs 23中的功能是什么?

1 个答案:

答案 0 :(得分:7)

没有内置函数可以执行您想要的操作,但此代码片段可以解决问题。

(defun lower-and-concat (b e)
  (interactive "r")
  (save-restriction
    (narrow-to-region b e)
    (goto-char (point-min))
    (downcase-region b e)
    (while (re-search-forward "[ \t]+" nil t)
      (replace-match "_"))))