Re: first steps in elisp

[Thien-Thi Nguyen]

() Mark Piffer <mark.piffer@gmail.com>
() Thu, 24 Nov 2016 15:00:59 -0800 (PST)

   (defun ignore-multiline-comment (nlines)
     DOCSTRING
     (if (zerop nlines)
         nil
       (if (looking-at ".*?\\*/")
                   (progn
                     (goto-char (match-end 0))
                     (ignore-line-comments nlines))
         (beginning-of-line 2)
         (ignore-multiline-comment (1- nlines)))))

In addition to suggestions made by others, i would replace the
(current) recursion w/ iteration, so as to future-proof against
large ‘nlines’ (maybe the text has short multiline comments now,
but you never know what weirdness may inspire the programmer to
wax eloquent in the future :-D).

-- 
Thien-Thi Nguyen -----------------------------------------------
 (defun responsep (type via)
   (case type
     (technical (eq 'mailing-list via))
     ...))                              748E A0E8 1CB8 A748 9BFA
--------------------------------------- 6CE4 6703 2224 4C80 7502

signature.asc
Description: PGP signature