Lines Matching +defs:current +defs:column
100 reindent the current line. If nil, indent the current line only if
282 (defun csh-current-line ()
286 (if (= (current-column) 0) 1 0))
297 (nest-column (if (zerop match-point)
301 (current-indentation))))
325 (cons nest-column (csh-current-line)))
336 current line should nest."
349 (setq level (cons (current-indentation)
350 (csh-current-line)))
355 (cons (current-indentation) (csh-current-line))
361 (defun csh-get-nester-column (nest-line)
362 "Return the column to indent to with respect to nest-line taking
367 (start-line (csh-current-line)))
378 (+ (current-indentation) csh-case-item-offset))
385 (current-indentation))
389 (- (current-indentation) csh-case-item-offset))
416 (current-column))
418 ;; In order to locate the column of the keyword,
426 (+ (current-indentation) csh-case-item-offset)
427 (+ (current-indentation)
436 (+ (current-indentation) 1))
439 (+ (current-indentation) csh-indent))
449 (+ (current-column) 1))
450 (+ (current-indentation) csh-case-indent)))
456 (+ (current-indentation) csh-indent))
458 ;; This is hosed when using current-column
461 (t (current-indentation)))
470 "Indent current line relative to containing block and allow for
486 "Indent current line as far as it should go according
495 ;; Align this line to current nesting level
500 (this-line-level (current-indentation))
501 (nester-column (csh-get-nester-column (cdr level-list)))
505 (setq nester-column struct-match))
506 (if (eq nester-column this-line-level)
512 (indent-to nester-column))
520 (this-line-level (current-indentation))
558 current line"
566 "Return true if current line is a label (not the default: case label)."
603 "If the current line matches one of the indenting keywords
648 reindent the current line. If nil, indent the current line only if
743 (make-local-variable 'comment-column)
744 (setq comment-column 32)
929 "Pickup all completions in current line."