Lines Matching +defs:comment +defs:column
22 (defcustom casl-indent-rhs-align-column 0
38 "Returns the column number of APOINT."
41 (current-column)))
76 "Pushes indentation information for the column COL
85 "Pushes indentation information for the column corresponding to POS
90 "Pushes indentation information for the column corresponding to POS
151 It is at the first character which is not in a comment after nearest
166 ;; find the first line of code which is not a comment
167 (while (and (casl-indent-in-comment start-code (point))
182 (defun casl-indent-in-comment (start end)
183 "Checks, starting from START, if END is within a comment, returns
184 the location of the start of the comment, nil otherwise."
190 ((looking-at "%{\\|%%\\|%\\[\\|%\(") ; on the first char of a comment ?
216 ((casl-indent-in-comment 1 (point)) 'comment)
237 (let ((cur-col 1024) ; maximum column number
245 '(empty comment))) ; skip empty and comment lines
246 (< (current-column) cur-col) ; less indented column found
248 (setq cur-col (current-column)))
345 (defun casl-indent-comment (start end indent-info)
346 "Finds indentation information for a comment line.
347 If the previous line (between START and END) is also a comment line
353 (let ((comment-start (casl-indent-in-comment start end)))
354 (if comment-start
355 (if (eq (following-char comment-start) ?%)
356 ;; %% style comment
357 (casl-indent-push-pos comment-start)
358 ;; %{ style comment
359 (goto-char (+ 2 comment-start))
362 ;; no previous comment indent with previous line
573 ('comment (error "Comment indent should never happen"))
582 (let (end-match beg-match start-comment)
584 (setq start-comment (casl-indent-in-comment line-start line-end))
585 (if start-comment ; if comment at the end
586 (setq line-end (- start-comment 1))) ; end line before it
591 (if (casl-indent-in-comment line-start (point)) ; keyword in a {- comment
595 line-start ; end line before comment
598 ;skip past end of comment
601 ;; not in a comment
636 ;; in comment ?
637 (if (casl-indent-in-comment start end)
640 (setq indent-info ; computing comment indentation
641 (casl-indent-comment (casl-indent-get-beg-of-line)
664 (setq end-visible ; visible until the column of the
667 (move-to-column
672 (not (casl-indent-in-comment start line-start)))
699 (if (> (current-column) (casl-indent-current-indentation))
725 (defun casl-indent-shift-columns (dest-column region-stack)
733 (setq col (current-column))
734 (setq diffcol (- dest-column col))
744 (move-to-column col)))