contrib/tcsh/csh-mode.el

50   "*Version number of this version of csh-mode")
101 point is at the left margin or in the line's indentation; otherwise
166 (require 'font-lock)  ; need to do this before referring to font-lock-* below
169   ;; NOTE:  The order of some of the items in this list is significant.  Do not
193    ;;        line to prevent re-fontifying text in comments.  Due to this, we
283   "Return the vertical position of point in the buffer.
285   (+ (count-lines (point-min) (point))
290   (begin-re end-re anchor-point &optional balance-list)
291   "Determine how much to indent this structure. Return a list (level line)
294       (;; Locate the next compound begin keyword bounded by point-min
295        (match-point (if (re-search-backward begin-re (point-min) t)
297        (nest-column (if (zerop match-point)
300 			(goto-char match-point)
304     (if (zerop match-point)
311 		    (re-search-forward end-re anchor-point t))
312 	  (if (not (memq (point) balance-list))
314 		(setq balance-list (cons (point) balance-list))
315 		(goto-char match-point)  ;; beginning of compound cmd
318 					     anchor-point balance-list))
324 		   (goto-char match-point)
369       ;; Handle case item indentation constructs for this line
374 	       (let ((fence-post (save-excursion (end-of-line) (point))))
376 			;; If this is the first case under the switch, indent.
381 			;; If this is another case right under a previous case
388 			;; Else, this is a new case.  Outdent.
395 	       (setq fence-post (save-excursion (end-of-line) (point)))
405 		       ;; If this is a continued string, indent under
411 			 ;; Else if this is a continued parenthesized
453 		  ;; If this is the first statement under a control-flow
495 	;; Align this line to current nesting level
500 	     (this-line-level (current-indentation))
506 	  (if (eq nester-column this-line-level)
509 	    (let ((beg (point)))
511 	      (delete-region beg (point)))
517     ;; Position point on this line
520 	 (this-line-level (current-indentation))
521 	 (this-bol (save-excursion
523 		     (point)))
524 	 (this-point (- (point) this-bol))
526       (cond ((> this-line-level this-point);; point in initial white space
544       (setq start (point))
549 	(setq start (point)))
557   "From point, construct a string from all characters on
560   (buffer-substring (point)
563                       (point))))
573 indentation to use for this line otherwise."
578 	    (csh-get-compound-level begin-re end-re (point))
649     point is at the left margin or in the line's indentation; otherwise
767 (defun csh-bol-point ()
770     (point)))
776 	 (end (point))
782                     (point))))
824 	  ;; oops, what is this ?
836 	  ;; use this instead of a seperate buffer (usual)
873 (defun csh-eol-point ()
876     (point)))
881   (csh-pickup-completion-driver (point-min) (point-max) t))
928 (defun csh-pickup-this-line ()
931   (csh-pickup-completion-driver (csh-bol-point) (csh-eol-point) nil))