contrib/tcsh/csh-mode.el

1 ;; csh-mode.el --- csh (and tcsh) script editing mode for Emacs.
8 ;;   csh and tcsh script editing mode for Emacs.
11 ;;   Put csh-mode.el in some directory in your load-path and load it.
15 ;;   control and control structure construct matching in much the same
33 ;;                csh-mode looks at the first line and indents properly to line
36 ;; 10 Dec 96  DH  Added indentation and fontification for labels.  Added
37 ;;                fontification for variables and backquoted strings.
41 ;;                by doing search-and-replace and some keyword changes.
86 of nil indicates compound list keyword \(\"do\" and \"then\"\) alignment.")
95 (defvar csh-match-and-tell t
110   "Regexp used to locate grouping keywords case and default" )
236   (define-key csh-mode-map "\C-c\t"  'csh-completion-init-and-pickup)
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)
250   ;; Else, create it from the standard table and modify entries that need to be.
310 	(while (and (consp nest-list) (zerop (cdr nest-list))
341       (while (and (not (bobp))
343 	(if (and (not (looking-at "^\\s *$"))
363 into consideration keywords and other nesting constructs."
400 		  ((and (looking-at csh-multiline-re)
459 		  ;; and there is a multi-command expression as the
470   "Indent current line relative to containing block and allow for
502 	     (struct-match (csh-match-structure-and-reindent))
539     (let (csh-match-and-tell
546 	(if (not (and (bolp) (eolp)))
567   (and
572   "Match the compound command and indent. Return nil on no match,
583 	  (if csh-match-and-tell
590 	(if csh-match-and-tell
595 	  ) ;; if csh-match-and-tell
602 (defun csh-match-structure-and-reindent ()
605 if csh-match-and-tell is non-nil the matching structure will echo in
632   "csh-mode 2.0 - Major mode for editing csh and tcsh scripts.
633 Special key bindings and commands:
651 csh-match-and-tell
725          (setq csh-match-and-tell t)
848 ;; init the list and pickup all
850 (defun csh-completion-init-and-pickup ()
884   "Pickup completion in region and addit to the list, if not already
889       (while (and
898 		  (and (not (equal nil obj))
926 	(message "pickup %d variables and %d functions." (+ i1 i2) i3))))