Lines Matching +defs:forward +defs:comment
56 (define-key map [comment-region] '("Comment Out Region" . comment-region))
60 (put 'comment-region 'menu-enable 'mark-active)
184 (make-local-variable 'comment-start)
185 (setq comment-start "# ")
186 (make-local-variable 'comment-end)
187 (setq comment-end "")
188 (make-local-variable 'comment-start-skip)
189 (setq comment-start-skip "# *")
190 (make-local-variable 'comment-indent-function)
191 (setq comment-indent-function 'icon-comment-indent)
199 ;(font-lock-comment-start-regexp . "#")
209 icon-forward-sexp-function)
214 ;; This is used by indent-for-comment to decide how much to
215 ;; indent a comment in Icon code based on its context.
216 (defun icon-comment-indent ()
217 (if (looking-at "^#") 0 comment-column))
270 (forward-sexp 1)
273 (forward-line 1)
298 (skip-chars-forward " \t")
310 (skip-chars-forward " \t")
326 Returns nil if line starts inside a string, t if in a comment."
362 ;; Find previous non-comment character.
373 (skip-chars-forward " \t")
384 (forward-sexp 3)
385 (forward-char 1))
386 (while (progn (skip-chars-forward " \t\n")
389 (forward-line 1))
429 (progn (forward-word -1) (point))
430 (progn (forward-word 1) (point)))
447 (forward-sexp -1))
449 (skip-chars-forward " \t")
456 (save-excursion (forward-word 1) (point)))
499 (if (not (bobp)) (forward-char -1))
500 (re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" (point-max) 'move)
501 (forward-word -1)
502 (forward-line 1))
517 (forward-sexp 1))
524 ;; does not end inside a comment or string.
525 ;; Meanwhile, do appropriate indentation on comment lines.
539 (forward-line 1)
557 (save-excursion (forward-sexp -1)
559 (forward-line 1)
560 (skip-chars-forward " \t")
571 ;; Find last non-comment character before this line
609 ;; Indent any comment following the text.
610 (or (looking-at comment-start-skip)
611 (if (re-search-forward comment-start-skip (save-excursion (end-of-line) (point)) t)
612 (progn (indent-for-comment) (beginning-of-line))))))))))
689 (defun icon-forward-sexp-function (arg)
693 (forward-char -1)))