tcsh-65/tcsh/csh-mode.el

84 (defvar csh-indent 4
88 (defvar csh-case-item-offset csh-indent
90 (defvar csh-case-indent nil
98 (defvar csh-tab-always-indent t
100 reindent the current line.  If nil, indent the current line only if
237   (define-key csh-mode-map "\C-j"    'reindent-then-newline-and-indent)
239   (define-key csh-mode-map "\n"      'reindent-then-newline-and-indent)
240   (define-key csh-mode-map '[return] 'reindent-then-newline-and-indent)
241   (define-key csh-mode-map "\t"      'csh-indent-command)
242 ;;(define-key csh-mode-map "\t"      'csh-indent-line)
261   (modify-syntax-entry ?\' "\"" csh-mode-syntax-table) ; ' -string quote
291   "Determine how much to indent this structure. Return a list (level line)
362   "Return the column to indent to with respect to nest-line taking
376 			;; If this is the first case under the switch, indent.
405 		       ;; If this is a continued string, indent under
412 			 ;; list, indent after paren.
414 		       ;; Else, indent after whitespace after first word.
428 			(if (null csh-indent)
429 			    2 csh-indent)
433 		   (if (null csh-indent)
439 		       (+ (current-indentation) csh-indent))
445 		   (if (null csh-case-indent)
450 		     (+ (current-indentation) csh-case-indent)))
454 		  ;; label, indent one level.
456 		   (+ (current-indentation) csh-indent))
469 (defun csh-indent-command ()
471 csh-tab-always-indent customization"
477 	   (csh-indent-line))
478 	  (csh-tab-always-indent
480 	     (csh-indent-line)))
485 (defun csh-indent-line ()
512 	    (indent-to nester-column))
534 (defun csh-indent-region (start end)
535   "From start to end, indent each line."
547 	    (csh-indent-line))
556 (defun csh-line-to-string ()
557   "From point, construct a string from all characters on
571 (defun csh-match-indent-level (begin-re end-re)
572   "Match the compound command and indent. Return nil on no match,
593 	      (message "Matched ... %s" (csh-line-to-string))
600   ) ;; defun csh-match-indent-level
612 	     (csh-match-indent-level csh-if-re csh-endif-re))
614 	     (csh-match-indent-level csh-if-re csh-endif-re))
616 	     (csh-match-indent-level csh-if-re csh-endif-re))
618 	     (csh-match-indent-level csh-iteration-keywords-re csh-end-re))
620 	     (csh-match-indent-level csh-switch-re csh-endsw-re))
636 csh-indent
639 csh-case-indent
646 csh-tab-always-indent
648     reindent the current line.  If nil, indent the current line only if
661     (setq csh-indent default-tab-width)
667 		    bar    # <-- csh-group-offset is additive to csh-indent
672     (setq csh-indent default-tab-width)
673     (setq csh-group-offset (- 0 csh-indent))
685     (setq csh-case-indent nil)
691           baz;;         # <-- csh-case-indent aligns with \")\"
698     (setq csh-case-indent 6)
704            baz;;        # <-- csh-case-indent
723          (setq csh-indent 8)
724          (setq csh-tab-always-indent t)
735   (make-local-variable 'indent-line-function)
736   (setq indent-line-function 'csh-indent-line)
737   (make-local-variable 'indent-region-function)
738   (setq indent-region-function 'csh-indent-region)
831           ((not (string= pattern completion))
840 		 (string ""))
843 		 (setq string (concat string (format "%s " (car list))))
845 	     (message string))))))