Re: beginning-of-defun (again)

["Andreas Röhler" <andreas.roehler@online.de>]

  On 29.10.2015 14:47, David Kastrup wrote:
> Oleh Krehel<ohwoeowho@gmail.com>  writes:
>
>> David Kastrup<dak@gnu.org>  writes:
>>
>>> Oleh Krehel<ohwoeowho@gmail.com>  writes:
>>>
>>>> Hi Andreas,
>>>>
>>>> Andreas Röhler<andreas.roehler@online.de>  writes:
>>>>
>>>>> maybe it's time to have a reasonable default-behavior of
>>>>> beginning-of-defun in Emacs Lisp.
>>>> I think it works pretty well as is.
>>>>
>>>>> open-paren-in-column-0-is-defun-start
>>>> It's a strange variable that doesn't seem to do anything.
>>> Huh?
>> Please give an example then. I'm not able to see a difference when it's
>> unset.
> <URL:http://git.savannah.gnu.org/cgit/lilypond.git/commit/scm/define-grob-properties.scm?id=51172615f31aa2af30c0343b92f1cc372ef0ce91>
>
> This is a Scheme file containing a large structure with multiline
> strings.  Occasionally when working with this file, I have to reformat
> strings which happened to have "(" after a newline after other people
> worked on the file, in order to keep Emacs from misinterpreting the
> context.  Such misinterpretation looks ugly in fontification and is a
> real nuisance if you want to add several lines of new material and have
> Emacs indent it since Emacs will not indent within "strings" (and when
> it lost count of "..." pairs, that means everywhere where you'd want
> it).
>

Below some benchmarks - don't know how to read the results BTW, it took 
several seconds each.
No idea WRT diff between two test rows.

In any case didn't feel a significant diff between pps-based un-compiled 
approach considered reliable and the built-in.
GNU Emacs 24.4.1 (i586-pc-linux-gnu, GTK+ Version 3.14.5) of 2015-03-07 
on binet, modified by Debian

ar-beginning-of-defun is available here:
http://bazaar.launchpad.net/~a-roehler/s-x-emacs-werkstatt/trunk/view/head:/gnu-emacs-fixes.el

;;;;;;;;;;

(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.001541s"
(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.001197s"
(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.001845s"
(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.001326s"

(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.002036s"
(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.001215s"
(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.001478s"
(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.001699s"

;;;; tests some times later

(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.003947s"
(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.008513s"
(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.004473s"
(bod-test 'ar-beginning-of-defun 99999)"Elapsed time: 0.004457s"

(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.004883s"
(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.004741s"
(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.004179s"
(bod-test 'beginning-of-defun 99999)"Elapsed time: 0.004660s"

;;;;;;;;;;

(defun bod-test (func repeat)
   (interactive)
   (let ((undo-outer-limit 999999999))
     (set-buffer (get-buffer-create (concat (prin1-to-string func) 
"-bm-test")))
     (erase-buffer)
     (dotimes (i repeat) (insert "(defun foo1 (&optional beg end)
   \" \"
   (interactive \"\*\")
   (let ((beg (cond (beg)
                    ((use-region-p)
                     (region-beginning))
                    (t (point-min))))
         (end (cond (end (copy-marker end))
                    ((use-region-p)
                     (copy-marker (region-end)))
                    (t (copy-marker (point-max))))))
     (save-excursion
       (goto-char beg))
     (when (interactive-p) (message \"%s %s\" beg end))))
"))
     (benchmark repeat
            (progn
          (beginning-of-line)
          (funcall func)
          ;; (message "%s" (point))
      ))))

;;;