第一段自己写的Emacs Lisp函数，纪念一下

(defun vlgdef (vtype)
"Muliply NUMBER by seven."
(interactive)
(let ((orig (point)))
(message "Welcome")
(move-beginning-of-line 1)
(let ((text (delete-and-extract-region (point) orig)))

(if (string= text "")
    (insert "wire ")
)
(setq match (string-match "//(//s-*//)//([[:digit:]]+//)[,:]//([[:digit:]]+//)" text))
(if (not match)
    (insert text)
  (insert (match-string 1 text))
  (insert vtype)
  (insert "[")
  (insert (match-string 2 text))
  (insert ":")
  (insert (match-string 3 text))
  (insert "] ")
)
)))