[elisp]针对Emacs中文本编辑的编程简介

 ;返回当前光标的位置
  (point)
  ;region的头跟尾
  (region-beginning)
  (region-end)
  ;最大光标位置（即文件尾），elisp还提供最小光标位置(point-min)，不过我觉得那应该都是1吧。
  (point-max)
  ;返回buffer结尾的绝对位置，无视narrow-to-region
  (buffer-end 1)

;移动光标到392
(goto-char 392)
 
; 向前/向后移动n字符
(forward-char n)
(backward-char n)
 
; 跳过所有\n\t,即把光标移动第一个不是换行或制表符那里
; 返回移动的字符数
(skip-chars-forward "\n\t")
(skip-chars-backward "\n\t")
 
;移动光标到myStr后面，向前和向后
;返回新的光标位置
(search-forward myStr)
(search-backward myStr)
 
; 同上，但是参数是正则表达式，myRegex
; 返回新的光标位置
(re-search-forward myRegex)
(re-search-backward myRegex)

; 删除光标后的九个字符
(delete-char 9)
 
; 删除选中的两点之前的文本
(delete-region mystartpos myendpos)
 
; 在当前光标位置插入一字符串
(insert "Forza Inter")
 
; 从buffer中获得一个字符串并赋给mystr
(setq Mystr (buffer-substring mystartpos myendpos))
 
; 改变字符大小写
;这个例子是指当前光标之前的20个字符
(rapitalize-region (- (point) 20) (point))

  ; 长度
(length "abc") ; returns 3
 
; 获取一个子串
(substring myStr startIndex endIndex)
 
; 替换，以正则方式
(replace-regexp-in-string myRegex myReplacement myStr)

; 当前buffer的名字
(buffer-name)
 
; 文件名（全路径)
(buffer-file-name)
 
; 设定一个buffer名
(set-buffer myBufferName)
 
; 保存
(save-buffer)
 
; 关闭指定的buffer
(kill-buffer myBuffName)
 
; 关闭当前buffer
(kill-this-buffer)
 
; 临时指定一个buffer作为当前buffer
(with-current-buffer myBuffer
  ; do something here ...
)

  ; 打开一个文件
(find-file myPath)
 
; 另存
; 会关闭当前的buffer，打开另存好的文件
(write-file myPath)
 
; 把一个文件内容插入到当前位置
(insert-file-contents myPath)
 
; 将选中的评论文本加到某个文件后面
(append-to-file myStartPos myEndPos myPath)
 
; 重命名
(rename-file fileName newName)
 
; 复制
(copy-file oldName newName)
 
; 删除
(delete-file fileName)
 
; 获取路径
(file-name-directory myFullPath)
 
; 获取文件名(不含路径)
(file-name-nondirectory myFullPath)
 
; 得到文件名后缀
(file-name-extension myFileName)
 
; 获得不含后缀的文件名。
(file-name-sans-extension "abc.htm")

(defun insert-p-tag ()
  "Insert
 
 at cursor point."
  (interactive)
  (insert "
 
")
  (backward-char 4))