contrib/tcsh/csh-mode.el

59 ;; -------------------------------------------> Variables controlling completion
61 (defvar csh-completion-list '())
62 (make-variable-buffer-local 'csh-completion-list)
63 (set-default 'csh-completion-list  '())
69 (defvar csh-completion-type-misc 0)
70 (defvar csh-completion-regexp-var "\\([A-Za-z_0-9]+\\)=")
71 (defvar csh-completion-type-var 1)
72 (defvar csh-completion-match-var 1)
73 (defvar csh-completion-regexp-var2 "\\$\\({\\|{#\\)?\\([A-Za-z_0-9]+\\)[#%:}]?")
74 (defvar csh-completion-match-var2 2)
75 (defvar csh-completion-regexp-function
77 (defvar csh-completion-type-function 2)
78 (defvar csh-completion-match-function 2)
236   (define-key csh-mode-map "\C-c\t"  'csh-completion-init-and-pickup)
760 ;; add a completion with a given type to the list
762 (defun csh-addto-alist (completion type)
763   (setq csh-completion-list
764 	(append csh-completion-list
765 		(list (cons completion type)))))
773   "Perform completion."
798 			    (equal (cdr sym) csh-completion-type-function)))
814 				     csh-completion-type-var)))
820 	 (completion (try-completion pattern csh-completion-list predicate)))
822     (cond ((eq completion t))
826           ((null completion)
827            (message "Can't find completion for \"%s\"" pattern))
831           ((not (string= pattern completion))
833            (insert completion))
835 	  ;; write possible completion in the minibuffer,
839            (let ((list (all-completions pattern csh-completion-list predicate))
850 (defun csh-completion-init-and-pickup ()
853     (csh-completion-list-init)
859 (defun csh-completion-list-init ()
861   (setq csh-completion-list
863 	 (cons "break"  csh-completion-type-misc)
864 	 (cons "breaksw"  csh-completion-type-misc)
865 	 (cons "case"  csh-completion-type-misc)
866 	 (cons "continue"  csh-completion-type-misc)
867 	 (cons "endif"  csh-completion-type-misc)
868 	 (cons "exit"  csh-completion-type-misc)
869 	 (cons "foreach"  csh-completion-type-misc)
870 	 (cons "if"  csh-completion-type-misc)
871 	 (cons "while"  csh-completion-type-misc))))
881   (csh-pickup-completion-driver (point-min) (point-max) t))
883 (defun csh-pickup-completion (regexp type match pmin pmax)
884   "Pickup completion in region and addit to the list, if not already
896 	  (setq obj (assoc kw csh-completion-list))
905 (defun csh-pickup-completion-driver (pmin pmax message)
906   "Driver routine for csh-pickup-completion."
908       (message "pickup completion..."))
911 	  (csh-pickup-completion  csh-completion-regexp-var
912 				 csh-completion-type-var
913 				 csh-completion-match-var
916 	  (csh-pickup-completion  csh-completion-regexp-var2
917 				 csh-completion-type-var
918 				 csh-completion-match-var2
921 	  (csh-pickup-completion  csh-completion-regexp-function
922 				 csh-completion-type-function
923 				 csh-completion-match-function
931   (csh-pickup-completion-driver (csh-bol-point) (csh-eol-point) nil))