Mercurial > emacs
changeset 82816:b5dbe2a97229
(hs-match-data): Delete alias.
(hs-hide-block-at-point, hs-find-block-beginning)
(hs-show-block): Use `match-data' directly.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Fri, 24 Aug 2007 10:41:10 +0000 |
| parents | 688f628e46b6 |
| children | e579966f7855 |
| files | lisp/progmodes/hideshow.el |
| diffstat | 1 files changed, 3 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/hideshow.el Fri Aug 24 08:51:18 2007 +0000 +++ b/lisp/progmodes/hideshow.el Fri Aug 24 10:41:10 2007 +0000 @@ -407,11 +407,6 @@ Note that `mode-line-format' is buffer-local.") ;;--------------------------------------------------------------------------- -;; system dependency - -(defalias 'hs-match-data 'match-data) - -;;--------------------------------------------------------------------------- ;; support functions (defun hs-discard-overlays (from to) @@ -526,7 +521,7 @@ (if comment-reg (hs-hide-comment-region (car comment-reg) (cadr comment-reg) end) (when (looking-at hs-block-start-regexp) - (let* ((mdata (hs-match-data t)) + (let* ((mdata (match-data t)) (pure-p (match-end 0)) (p ;; `p' is the point at the end of the block beginning, @@ -651,7 +646,7 @@ (while (and (re-search-backward hs-block-start-regexp nil t) (not (setq done (< here (save-excursion - (hs-forward-sexp (hs-match-data t) 1) + (hs-forward-sexp (match-data t) 1) (point))))))) (if done (point) @@ -825,7 +820,7 @@ ;; ugh, fresh match-data (looking-at hs-block-start-regexp)) (setq p (point) - q (progn (hs-forward-sexp (hs-match-data t) 1) (point))))) + q (progn (hs-forward-sexp (match-data t) 1) (point))))) (when (and p q) (hs-discard-overlays p q) (goto-char (if end q (1+ p)))))