contrib/tcsh/csh-mode.el

101 point is at the left margin or in the line's indentation; otherwise
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)
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)
374 	       (let ((fence-post (save-excursion (end-of-line) (point))))
395 	       (setq fence-post (save-excursion (end-of-line) (point)))
509 	    (let ((beg (point)))
511 	      (delete-region beg (point)))
517     ;; Position point on this line
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))))
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))))
873 (defun csh-eol-point ()
876     (point)))
881   (csh-pickup-completion-driver (point-min) (point-max) t))
931   (csh-pickup-completion-driver (csh-bol-point) (csh-eol-point) nil))