OpenGrok

286 (defun perl-offset-indent (&aux char (point (point)))
288   (while (member (setq char (char-after point)) indent-spaces)
289     (incf point))
290   (if (member char '(#\})) (1+ point) point))
295 (defun perl-should-indent (options &aux char point start offset)
306       point	(point)
307       char	(char-before point)
308       start	(scan point :eol :left))
312       (return-from perl-should-indent (= point start)))
315     (and (= point start)
319     (and (= point (1+ start))
325 	    (= point (scan point :eol :right))
327       (setq offset (1- point))

Indexes created Wed Aug 12 00:25:48 UTC 2026