From ac5cb26d90238cc01056928a99f086cfb188dae5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 10 May 2000 22:43:28 +0000 Subject: [PATCH] (regexp-opt-depth): Fix regexp. --- lisp/ChangeLog | 39 +++++++++++++++++++++++++++++++++++++++ lisp/emacs-lisp/regexp-opt.el | 3 ++- 2 files changed, 41 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 03159b7e637..c46a4a94cdc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,42 @@ +2000-05-10 Stefan Monnier + + * emacs-lisp/regexp-opt.el (regexp-opt-depth): Fix regexp. + + * subr.el (add-hook, remove-hook): Make hook buffer-local if needed.. + (add-minor-mode): Don't make the variable buffer-local and add a + reference to define-minor-mode in the docstring. + + * pcvs.el (cvs-cleanup-collection): Remove obsolete code for + HEADER/FOOTER and fix bug with trailing empty directory. + (cvs-append-to-ignore): Use vc-editable-p if available. + (cvs-dir-member-p): Remove obsolete code for HEADER/FOOTER. + (vc-do-command): Tweak advice to handle the new VC. + + * log-view.el (log-view-goto-rev): New function for the new VC. + (log-view-minor-wrap): Use mark-active. + + * log-edit.el (cvs-changelog-full-paragraphs): Mark obsolete. + (log-edit-changelog-full-paragraphs): New var. + (log-edit-insert-changelog): Remove a lonely leading `* file'. + (log-edit-narrow-changelog, log-edit-changelog-paragraph) + (log-edit-changelog-subparagraph, log-edit-changelog-entry) + (log-edit-changelog-ours-p, log-edit-changelog-entries) + (log-edit-changelog-insert-entries, log-edit-insert-changelog-entries): + Replace the `cvs' prefix with `log-edit'. + + * iswitchb.el (iswitchb-completion-help): Unquote lambda. + + * diff-mode.el (diff-font-lock-keywords): Recognize comments. + (diff-font-lock-defaults): Explicitly turn off multiline. + (diff-end-of-hunk): Handle comments and fix end-of-buffer bug. + (diff-ediff-patch): Fix call to ediff-patch-file. + (diff-end-of-file, diff-reverse-direction, diff-fixup-modifs): + Handle comments. + + * frame.el (automatic-hscrolling): Typo. + + * cvs-status.el (cvs-status-minor-wrap): Use mark-active. + 2000-05-09 Sam Steingold * apropos.el (apropos-print): use `describe-face' instead of diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index 8c77e9ea5cb..a7ff7b54a58 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el @@ -112,7 +112,8 @@ in REGEXP." (string-match regexp "") ;; Count the number of open parentheses in REGEXP. (let ((count 0) start) - (while (string-match "\\\\\\(\\\\\\\\\\)*([^?]" regexp start) + (while (string-match "\\(\\`\\|[^\\]\\)\\\\\\(\\\\\\\\\\)*([^?]" + regexp start) (setq count (1+ count) start (match-end 0))) count))) -- 2.11.4.GIT