Extensions to match-paren

match-paren-japanese.el

;; 対応するカッコにジャンプ
(defun match-paren-japanese (arg)
  "Go to the matching parenthesis."
  (interactive "p")
  (cond ((looking-at "[([{（｛［「『《〔【〈]") (forward-sexp 1) (backward-char))
        ((looking-at "[])}）｛］」』》〕】〉]") (forward-char) (backward-sexp 1))
        (t (message "match-paren-japanese ignored"))))
(global-set-key [f5] 'match-paren-japanese)

;; 対応するカッコまでをコピー
(defun match-paren-kill-ring-save ()
  "Copy region from here to the matching parenthesis to kill ring and save."
  (interactive)
  (set-mark-command nil)
  (match-paren-japanese nil)
  (forward-char)
  (exchange-point-and-mark)
  (clipboard-kill-ring-save (mark) (point))
  (let ((c (abs (- (mark) (point)))))
    (message "match-paren-kill-ring-save: %d characters saved" c)))
(global-set-key [C-f5] 'match-paren-kill-ring-save)