c-beginning-of-defun in the past and presence

[martin rudalics]

Dear Alan and friends

Running with emacs -Q

(with-current-buffer (find-file-noselect "~/src/xdisp.c")
  (elp-instrument-function 'c-beginning-of-defun)
  (goto-char (point-max))
  (condition-case nil
      (beginning-of-defun 1000)
    (error nil))
  (elp-results))

gets me here as elapsed time

Emacs 24.3:   1.672

Emacs 24.4:   4.516

Emacs trunk: 27.375


Running with emacs -Q

(with-current-buffer (find-file-noselect "~/src/xdisp.c")
  (elp-instrument-function 'c-beginning-of-defun)
  (goto-char (point-max))
  (condition-case nil
      (while (beginning-of-defun) nil)
    (error nil))
  (elp-results))

gets me here

             Call Count  Elapsed Time  Average Time

Emacs 24.3:  353         23.842999999  0.0675439093

Emacs 24.4:  353         43.000000000  0.1218130311

Emacs trunk: 353        136.48399999   0.3866402266


Please try to make things behave reasonably again.

Thanks, martin