Re: Use of lexical binding plus various other things

[Ikumi Keita]

Hi Stefan,

>>>>> Stefan Monnier <monnier@iro.umontreal.ca> writes:
> I pushed to the branch `scratch/auctex-lexbind` of the `elpa.git`
> repository a series of 10 patches which convert all of AUCTeX to use
> lexical binding, and includes various other more or less
> cosmetic changes.

> The commit log is below, the overall patch is too large to be worth
> including here.

> Please try it out and let me know if you find problems.
> Also, feel free to merge any or all parts into AUCTeX's upstream, thanks.

At least two files, preview.el(.in) and tex-info.el, need further
modification before turning on lexical binding.

---- preview.el.in --------------------------------------------------
(defadvice TeX-region-create (around preview-counters)
  "Write out counter information to region."
  (let ((TeX-region-extra
         (concat
          (and (boundp 'begin)
                ^^^^^^^^^^^^^
               preview-buffer-has-counters
               (mapconcat
                #'identity
                (cons
                 ""
                 (preview-counter-find (symbol-value 'begin)))
                                        ^^^^^^^^^^^^^^^^^^^
                "\\setcounter"))
          TeX-region-extra)))
    ad-do-it))
----------------------------------------------------------------------
---- tex-info.el -----------------------------------------------------
(defun Texinfo-mark-section (&optional no-subsection)
[...]
    (when (and beg end)
      ;; now take also enclosing node of beg and end
      (dolist
          (boundary '(beg end))
        (when (symbol-value (intern (concat "is-" (symbol-name boundary)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                                            "-section")))
                                            ^^^^^^^^^^
          (save-excursion
            (goto-char (symbol-value boundary))
                        ^^^^^^^^^^^^^^^^^^^^^
            (while
                (and
                 (null (bobp))
                 (progn
                   (beginning-of-line 0)
                   (looking-at "^\\s-*\\($\\|@\\(c\\|comment\\)\\_>\\)"))))
            (when  (looking-at "^\\s-*@node\\_>")
              (set boundary (point))))))
               ^^^^^^^^^^^^^^^^^^^^
[...]
----------------------------------------------------------------------

Regards,
Ikumi Keita