looking-at

Title
looking-at
Type
Function
Arguments
looking-at REGEXP &optional CASE-FOLD
Package
editor
Section
検索・正規表現
File
builtin.l
現在のカーソル位置で前方向に正規表現でマッチしたらt、しなかったらnilを返します。

使用例:
  ;;; カーソル位置が行頭でかつ(とマッチするか?
  (defun rrr ()
    (interactive)
    (if (looking-at "^(")
      (message "ok") (message "bad")))

  ;;; 空白やタブや全角スペースがあれば削除する
  (if (looking-at "[ \t ]*")
      (delete-region (match-beginning 0) (match-end 0)))

参考:
  ;;; looking-at の後方版 (正規表現で後方マッチ)
  ;;; XyzzyWiki 質問箱/175 より
  (defun looking-at-backward (regexp &optional case-fold)
   (save-excursion
     (save-restriction
       (narrow-to-region (point-min) (point))
       (goto-char (point-min))
       (scan-buffer (format nil "\\(?:~A\\)\\'" regexp)
                    :regexp t :case-fold case-fold))))
Seealso
looking-for
scan-buffer
string-match
string-looking-at
正規表現の表記