]> git.eshelyaron.com Git - emacs.git/commitdiff
(c-after-change-check-<>-operators):
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 16 Dec 2005 20:07:49 +0000 (20:07 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 16 Dec 2005 20:07:49 +0000 (20:07 +0000)
After-change-functions should not clobber the match data.

lisp/ChangeLog
lisp/progmodes/cc-engine.el

index 0ac74634b53ef8970f3a4858cf7fd506d5d4c98b..59a99dfe77d209a6b4624c303d2e60b371374454 100644 (file)
@@ -1,3 +1,8 @@
+2005-12-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/cc-engine.el (c-after-change-check-<>-operators):
+       After-change-functions should not clobber the match data.
+
 2005-12-16  Juri Linkov  <juri@jurta.org>
 
        * simple.el (choose-completion): Use `buffer-substring-no-properties'
        (completion-setup-function): Use minibuffer-completion-contents
        instead of minibuffer-contents.  Don't set common-string-length
        initially.  Remove special handling of partial-completion-mode.
-       Move computation of completion-base-size into one cond.  Call
-       completion-base-size-function in mainbuf.  In computation of
+       Move computation of completion-base-size into one cond.
+       Call completion-base-size-function in mainbuf.  In computation of
        completion-base-size for file name completion don't move point to
        the end of the minibuffer.  Move computation of common-string-length
        into one cond.  Start putting faces only when common-string-length>=0.
-       Add condition to put completions-common-part when common-string-length>0.
+       Add condition to put completions-common-part when
+       common-string-length>0.
 
        * complete.el (PC-do-completion): Remove `(equal (point) beg)' to
        place point at the first different character in the minibuffer
 2005-12-16  Carsten Dominik  <dominik@science.uva.nl>
 
        * textmodes/org.el: (org-tags-match-list-sublevels): New option.
-       (org-open-at-point): implement tag searches as links
+       (org-open-at-point): Implement tag searches as links.
        (org-fit-agenda-window, org-get-buffer-tags, org-get-tags)
-       (org-make-tags-matcher, org-scan-tags, org-activate-tags): New
-       functions
+       (org-make-tags-matcher, org-scan-tags, org-activate-tags): New funs.
        (org-tags-sparse-tree, org-tags-view, org-set-tags)
        (org-agenda-dispatch): New commands.
        (org-use-tag-inheritance, org-tags-column): New options.
        (org-tags): New customize group.
        (org-start-icalendar-file): Get local time zone.
        (org-tags-completion-function): New function.
-       (org-set-font-lock-defaults): make sure links will also be
+       (org-set-font-lock-defaults): Make sure links will also be
        highlighted inside headlines.
 
 2005-12-16  Mark Plaksin  <happy@usg.edu>  (tiny change)
 
-       * term.el (term-emulate-terminal): Let
-       term-handle-ansi-terminal-messages override what Bash says about
+       * term.el (term-emulate-terminal):
+       Let term-handle-ansi-terminal-messages override what Bash says about
        its current directory.
 
 2005-12-16  L\e$,1 q\e(Brentey K\e,Aa\e(Broly  <lorentey@elte.hu>
@@ -61,7 +66,7 @@
        (next-buffer): Use frame-local buffer list, maintain buried buffer list.
        (prev-buffer): Ditto. Rename to `previous-buffer'.
 
-       * menu-bar.el (menu-bar-update-buffers): Update references to `prev-buffer'.
+       * menu-bar.el (menu-bar-update-buffers): Update uses of `prev-buffer'.
        * bindings.el (global-map): Ditto.
 
 2005-12-15  Luc Teirlinck  <teirllm@auburn.edu>
 
 2005-12-16  Nick Roberts  <nickrob@snap.net.nz>
 
-       * progmodes/gdb-ui.el (gdb-many-windows): Echo new state in
-       minibuffer.
+       * progmodes/gdb-ui.el (gdb-many-windows): Echo new state in minibuffer.
 
 2005-12-15  David Ponce  <david@dponce.com>
 
-       * recentf.el (recentf-dialog-goto-first): Fix missing error
-       condition.
+       * recentf.el (recentf-dialog-goto-first): Fix missing error condition.
        (recentf-edit-list, recentf-open-files): Signal an error when
        there is no recent file.
 
 
 2005-12-10  Johan Bockg\e,Ae\e(Brd  <bojohan@dd.chalmers.se>
 
-       * align.el (align-regexp, align-highlight-rule): Use
-       region-beginning and region-end instead of point and mark, so that
+       * align.el (align-regexp, align-highlight-rule):
+       Use region-beginning and region-end instead of point and mark, so that
        repetition (with `repeat-complex-command') recomputes the region
        bounds.
 
        (hi-lock-archaic-interface-deduce): New variables.
        (turn-on-hi-lock-if-enabled, hi-lock-line-face-buffer)
        (hi-lock-face-buffer, hi-lock-face-phrase-buffer)
-       (hi-lock-find-patterns, hi-lock-font-lock-hook): Replace
-       hi-lock-buffer-mode with hi-lock-mode.
+       (hi-lock-find-patterns, hi-lock-font-lock-hook):
+       Replace hi-lock-buffer-mode with hi-lock-mode.
 
 2005-12-10  Kevin Rodgers  <ihs_4664@ihs.com>
 
 
 2005-12-10  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
-       * term/mac-win.el: Require url when compiling.  Call
-       mac-process-deferred-apple-events after loading init files.
+       * term/mac-win.el: Require url when compiling.
+       Call mac-process-deferred-apple-events after loading init files.
        (mac-apple-event-map): New defvar.  Define event handlers in it.
        (core-event, internet-event): New Apple event class symbols.
        (open-application, reopen-application, open-documents)
        (print-documents, open-contents, quit-application)
-       (application-died, show-preferences, autosave-now, get-url): New
-       Apple event ID symbols.
+       (application-died, show-preferences, autosave-now, get-url):
+       New Apple event ID symbols.
        (about): New HICommand ID symbol.
        (mac-event-spec, mac-event-ae): New macros.
        (mac-ae-parameter, mac-ae-list, mac-bytes-to-integer)
 
 2005-12-10  Kenichi Handa  <handa@m17n.org>
 
-       * simple.el (zap-to-char): Translate CHAR by
-       translation-table-for-input.
-
+       * simple.el (zap-to-char):
        * isearch.el (isearch-process-search-char): Translate CHAR by
        translation-table-for-input.
 
index c9f2b87b7f187758c07fcf653c8a13300284b5be..7f829bd26d5fe36a90ede4d84feae462cd698fee 100644 (file)
@@ -3993,35 +3993,36 @@ comment at the start of cc-engine.el for more info."
   ;;
   ;; This function might do hidden buffer changes.
 
-  (save-excursion
-    (goto-char beg)
-    (when (or (looking-at "[<>]")
-             (< (skip-chars-backward "<>") 0))
-
+  (save-match-data
+    (save-excursion
       (goto-char beg)
-      (c-beginning-of-current-token)
-      (when (and (< (point) beg)
-                (looking-at c-<>-multichar-token-regexp)
-                (< beg (setq beg (match-end 0))))
-       (while (progn (skip-chars-forward "^<>" beg)
-                     (< (point) beg))
-         (c-clear-char-property (point) 'syntax-table)
-         (forward-char))))
-
-    (when (< beg end)
-      (goto-char end)
       (when (or (looking-at "[<>]")
                (< (skip-chars-backward "<>") 0))
 
-       (goto-char end)
+       (goto-char beg)
        (c-beginning-of-current-token)
-       (when (and (< (point) end)
+       (when (and (< (point) beg)
                   (looking-at c-<>-multichar-token-regexp)
-                  (< end (setq end (match-end 0))))
-         (while (progn (skip-chars-forward "^<>" end)
-                       (< (point) end))
+                  (< beg (setq beg (match-end 0))))
+         (while (progn (skip-chars-forward "^<>" beg)
+                       (< (point) beg))
            (c-clear-char-property (point) 'syntax-table)
-           (forward-char)))))))
+           (forward-char))))
+
+      (when (< beg end)
+       (goto-char end)
+       (when (or (looking-at "[<>]")
+                 (< (skip-chars-backward "<>") 0))
+
+         (goto-char end)
+         (c-beginning-of-current-token)
+         (when (and (< (point) end)
+                    (looking-at c-<>-multichar-token-regexp)
+                    (< end (setq end (match-end 0))))
+           (while (progn (skip-chars-forward "^<>" end)
+                         (< (point) end))
+             (c-clear-char-property (point) 'syntax-table)
+             (forward-char))))))))
 
 ;; Dynamically bound variable that instructs `c-forward-type' to also
 ;; treat possible types (i.e. those that it normally returns 'maybe or