Lines Matching +defs:font +defs:lock +defs:type +defs:face
210 :type 'integer)
216 :type 'integer)
223 :type 'integer)
230 :type 'integer)
244 :type 'integer)
268 :type 'boolean)
274 :type 'boolean)
282 :type 'boolean)
289 :type 'regexp)
294 :type 'boolean)
299 :type 'boolean)
310 :type 'boolean)
318 :type 'boolean)
325 :type 'string)
334 :type '(choice (const :tag "Any line beginning with `;'" nil)
342 :type 'regexp)
361 :type 'boolean)
379 :type 'number)
390 :type '(choice
401 :type 'boolean)
415 :type '(choice
429 :type 'integer)
444 :type '(repeat (directory)))
455 :type 'directory)
462 :type 'file)
481 :type '(repeat
491 :type 'boolean)
545 :type `(repeat
556 :type 'boolean)
565 :type 'boolean)
578 :type 'boolean)
585 :type 'boolean)
592 :type 'boolean)
602 :type '(repeat (regexp :tag "Match method:")))
621 :type '(choice (const :tag "Don't show" nil)
629 :type 'boolean)
673 :type '(list
703 `idlwave-class-arrow-face'. The command \\[idlwave-routine-info]
707 :type 'boolean)
709 (defcustom idlwave-class-arrow-face 'bold
713 with this font in order to remind the user that this arrow is special."
715 :type 'symbol)
720 :type 'boolean)
725 :type 'boolean)
733 :type '(choice (const :tag "Nothing" nil)
743 :type 'boolean)
756 :type 'boolean)
768 :type 'string)
783 :type 'boolean)
792 :type '(choice
800 :type 'boolean)
805 :type 'boolean)
810 :type 'boolean)
821 :type 'boolean)
831 :type 'boolean)
838 :type 'boolean)
972 :type 'boolean)
977 :type 'function)
985 :type 'string)
990 :type 'regexp)
995 :type 'regexp)
1012 :type 'string)
1021 :type '(choice
1030 :type 'string)
1043 :type '(set :tag "Specify modifiers"
1056 :type 'boolean)
1062 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
1068 :type 'boolean)
1070 (defcustom idlwave-default-font-lock-items
1090 :type '(set
1108 :type 'hook)
1113 :type 'hook)
1127 ;;; font-lock mode - Additions by Phil Williams, Ulrik Dickow and
1163 (1 font-lock-keyword-face)
1164 (2 font-lock-function-name-face nil t)))
1169 (1 font-lock-keyword-face) ; "common"
1170 (2 font-lock-reference-face nil t) ; block name
1175 (1 font-lock-variable-name-face) ; variable names
1180 '("^[ \t]*\\(@[^ \t\n]+\\)" (1 font-lock-string-face)))
1184 '("\\<FIXME:" (0 font-lock-warning-face t)))
1188 '("^[ \t]*\\([a-zA-Z]\\sw*:\\)" (1 font-lock-reference-face)))
1193 (1 font-lock-keyword-face)
1194 (2 font-lock-reference-face)))
1198 ;; face. It also matches named subscript ranges,
1201 '("\\<\\([a-zA-Z][a-zA-Z0-9_]*:\\)[^:]" (1 font-lock-reference-face)))
1206 (2 font-lock-function-name-face)))
1214 (6 font-lock-reference-face)))
1219 (1 font-lock-variable-name-face)))
1223 '("[<>#]" (0 font-lock-keyword-face)))
1227 '("[-*^#+<>/]" (0 font-lock-keyword-face)))
1231 '(idlwave-match-class-arrows (0 idlwave-class-arrow-face))))
1233 (defconst idlwave-font-lock-keywords-1
1237 (defconst idlwave-font-lock-keywords-2
1238 (mapcar 'symbol-value idlwave-default-font-lock-items)
1241 (defconst idlwave-font-lock-keywords-3
1260 (defvar idlwave-font-lock-keywords idlwave-font-lock-keywords-2
1263 (defvar idlwave-font-lock-defaults
1264 '((idlwave-font-lock-keywords
1265 idlwave-font-lock-keywords-1
1266 idlwave-font-lock-keywords-2
1267 idlwave-font-lock-keywords-3)
1272 (put 'idlwave-mode 'font-lock-defaults
1273 idlwave-font-lock-defaults) ; XEmacs
1315 which can be used to identify the block type.
1316 This is used to check for the correct END type, to close blocks and
1371 type. The associated value is a list. The first element of this list
1373 identifying the statement type. The second element of this list is a
1374 regular expression for finding a substatement for the type. The
1954 ;; Font-lock additions
1957 (set (make-local-variable 'font-lock-defaults) idlwave-font-lock-defaults)
1958 (set (make-local-variable 'font-lock-mark-block-function)
1960 (set (make-local-variable 'font-lock-fontify-region-function)
1961 'idlwave-font-lock-fontify-region)
2023 (defun idlwave-font-lock-fontify-region (beg end &optional verbose)
2033 (font-lock-default-fontify-region beg end verbose))
2543 (let* ((type (if (string= (downcase (match-string 1)) "pro")
2547 (list name type class)))))
2670 Uses the type of the current IDL statement to determine if the next
2687 (setq nst (nth 1 (cdr (setq st (car (idlwave-statement-type))))))
2703 (defun idlwave-statement-type ()
2704 "Return the type of the current IDL statement.
2705 Uses `idlwave-statement-match' to return a cons of (type . point) with
2706 point the ending position where the type was determined. Type is the
2708 list not just the type symbol. Returns nil if not an identifiable
2726 `idlwave-start-of-substatement' and `idlwave-statement-type'. The
2772 (idlwave-statement-type)))
3113 (eq (caar (idlwave-statement-type)) 'for)))
4038 (concat "find " dir " -type d -print"))
4197 ;;(defmacro idlwave-sintern (type var)
4201 ;; (set (idlwave-sintern-set name ,type ,var set))
4236 (defun idlwave-sintern-set (name type tables set)
4237 (let* ((func (or (cdr (assq type idlwave-completion-case))
4255 (let (entry name type class kwds res source call new)
4260 type (nth 1 entry)
4275 (let ((source-type (car source))
4285 (setq source (list source-type source-file source-dir source-lib)))
4293 (setq new (nconc (list name type class source call) kwds)
4299 (defun idlwave-new-sintern-type (tag)
4300 "Define a variable and a function to sintern the new type TAG.
4317 (defun idlwave-reset-sintern-type (tag)
4443 ;; ("ROUTINE" type class
4716 syntax kwd klink pref-list kwds pelem ptype entry props result type)
4730 (setq type (cdr (assq 'type props)))
4733 ((string-match "^pro" type) 0)
4734 ((string-match "^fun" type) 1)
4735 ((string-match "^exec" type) 2)))))
4910 props rinfo msg-cnt elem type nelem class-result alias
4944 (setq type (car elem)
4950 ((eq type 'ROUTINE)
4961 ((eq type 'CLASS)
4967 ((eq type 'STATEMENT)
4976 ((eq type 'SYSVAR)
4993 ;; ("ROUTINE" type class
5263 start name args type keywords class)
5272 ;; Match the name and type.
5276 (setq type (downcase (match-string 1 string)))
5296 (if (equal type "pro") 'pro 'fun)
5309 (if (string= type "function") "Result = " "")
5314 (if (string= type "function") "(" ", ")
5316 (if (string= type "function") ")" ""))))
5516 (defvar font-lock-mode)
5551 (let ((font-lock-maximum-size 0)
5554 (if (and (boundp 'font-lock-mode)
5555 font-lock-mode)
5556 (font-lock-mode 0))
5592 (let ((font-lock-maximum-size 0)
5595 (if (and (boundp 'font-lock-mode)
5596 font-lock-mode)
5597 (font-lock-mode 0))
5907 The optional ARG can be used to specify the completion type in order
5911 0 <=> query for the completion type
5981 (type-selector 'pro))
5983 (list 'routine nil type-selector class-selector nil super-classes))
6004 (type-selector 'fun))
6006 (list 'routine nil type-selector class-selector nil super-classes))
6029 (type-selector 'pro)
6046 (list 'keyword name type-selector class-selector entry super-classes))
6062 (type-selector 'fun)
6086 (list 'keyword name type-selector class-selector nil super-classes))
6152 (type-selector 'pro)
6166 (type-selector 'fun)
6181 (type-selector 'pro)
6197 (type-selector 'fun)
6238 (defun idlwave-rinfo-assoc (name type class list)
6242 type (idlwave-sintern-class class) list))
6244 (defun idlwave-rinfo-assq (name type class list)
6245 ;; Works like assq, but also checks type and class
6249 (and (or (eq type t)
6250 (eq (nth 1 match) type))
6255 (defun idlwave-rinfo-assq-any-class (name type class list)
6260 (if (setq rtn (idlwave-rinfo-assq name type (pop classes) list))
6264 (defun idlwave-best-rinfo-assq (name type class list &optional with-file
6271 (idlwave-rinfo-assq-any-class name type class list)
6289 (defun idlwave-best-rinfo-assoc (name type class list &optional with-file
6294 type (idlwave-sintern-class class) list with-file keep-system))
6317 (defun idlwave-all-method-classes (method &optional type)
6325 (or (not type)
6326 (eq type (nth 1 x)))
6331 (defun idlwave-all-method-keyword-classes (method keyword &optional type)
6341 (or (not type) ; correct or unspecified type
6342 (eq type (nth 1 x)))
6379 (defun idlwave-determine-class (info type)
6434 (mapcar 'list (idlwave-all-method-classes (car info) type)))
6447 type (car info))
6458 `(idlwave-class ,class face ,idlwave-class-arrow-face
6467 (defvar type-selector)
6472 (and (eq (nth 1 a) type-selector)
6720 (defun idlwave-complete-in-buffer (type stype list selector prompt isa
6743 (list 'quote type) slash beg)
6746 (list 'quote type) slash (list 'quote 'force))))
6771 (idlwave-after-successful-completion type slash beg))
6781 (idlwave-after-successful-completion type slash beg)
6849 (defun idlwave-attach-classes (list type show-classes)
6866 (inherit (if (and (not (eq type 'class-tag)) super-classes)
6874 (if (eq type 'class-tag)
6881 (if (eq type 'kwd)
6883 method-selector x type-selector)
6884 (idlwave-all-method-classes x type-selector)))
7073 (boundp 'font-lock-mode)
7074 (not font-lock-mode))
7079 (remove-text-properties beg (point) '(face nil))))
7603 (idlwave-new-sintern-type 'class-tag)
7661 (idlwave-new-sintern-type 'sysvar)
7662 (idlwave-new-sintern-type 'sysvartag)
7820 var tags type name class link old-entry)
7848 (when (featurep 'font-lock)
7856 'face 'font-lock-string-face)))))))
7867 (defun idlwave-after-successful-completion (type slash &optional verify)
7871 ((eq type 'procedure)
7873 ((eq type 'function)
7883 ((eq type 'keyword)
7955 '(idlwave-class nil face nil))
7985 (type (if (eq (nth 1 module) 'pro) "pro" "function"))
7986 (resolve (read-string "Resolve: " (format "%s %s" type name)))
7991 (setq type (match-string 1 resolve)
7996 (if (string= (downcase type) "function")
8054 type class)
8059 (setq type (substring name -2 -1)
8066 type (cond ((equal type "f") 'fun)
8067 ((equal type "p") 'pro)
8069 (idlwave-do-find-module name type class nil this-buffer)))
8071 (defun idlwave-do-find-module (name type class
8078 (setq entry (idlwave-best-rinfo-assq name type class (idlwave-routines)
8110 (cond ((eq type 'fun) "function")
8111 ((eq type 'pro) "pro")
8189 (defun idlwave-find-inherited-class (name type class)
8191 (let ((entry (idlwave-best-rinfo-assoc name type class (idlwave-routines))))
8218 (defun idlwave-fix-keywords (name type class keywords
8253 (eq (nth 1 entry) type) ; correct type
8279 (eq (nth 1 entry) type) ; correct type
8300 (type (nth 1 module))
8303 (entry (idlwave-best-rinfo-assoc name type class (idlwave-routines)))
8354 (defun idlwave-display-calling-sequence (name type class
8356 ;; Display the calling sequence of module NAME, type TYPE in class CLASS.
8358 (entry (or (idlwave-best-rinfo-assq name type class
8360 (idlwave-rinfo-assq name type class
8381 (data (list name type class (current-buffer) nil initial-class))
8383 (face 'idlwave-help-link)
8387 (setq keywords (idlwave-fix-keywords name type class keywords))
8390 (error "No %s %s known %s" type name
8395 (error "Calling sequence of %s %s not available" type name))
8407 (setq props (list 'mouse-face 'highlight
8418 (add-text-properties beg (point) (list 'face 'bold))
8420 (if (idlwave-rinfo-assq name type c (idlwave-routines))
8423 (setq props (list 'mouse-face 'highlight
8427 (if html-file (setq props (append (list 'face face 'link html-file)
8451 props (list 'mouse-face 'highlight
8456 (if system (setq props (append (list 'face face) props)))
8463 ;; Here entry is (key file (list of type-conses))
8465 (setq props (list 'mouse-face 'highlight
8468 'source (list (car (car (nth 2 entry))) ;type
8568 (add-text-properties beg (point) (list 'face 'bold)))
8608 (let (data id name type class buf bufwin source link keyword
8615 name (nth 1 data) type (nth 2 data) class (nth 3 data)
8625 type (idlwave-sintern-class word)
8628 (idlwave-online-help link name type class))
8635 (list (list name type class source ""))))
8636 (idlwave-help-get-special-help name type class nil))
8641 (idlwave-do-find-module name type class source)
8652 (idlwave-online-help link name type class keyword)
8731 (props (list 'mouse-face 'highlight
8824 Twin entries are those which have the same name, type, and class.
8827 (type (nth 1 entry))
8833 (eq type (nth 1 candidate))
8836 (if (setq candidate (idlwave-rinfo-assq name type class
8850 (type (nth 1 entry)) ; Must be bound for
8853 source type type-cons file alist syslibp key)
8857 type (car source)
8858 type-cons (cons type (nth 3 source))
8862 (setq key (cond ((eq type 'system) type)
8873 ;; append the type-cons to the type list.
8875 (push type-cons (nth 2 entry))
8876 (push (list key file (list type-cons)) alist)))
8891 (defvar type)
8902 It first compates class, names, and type. If it turns out that A and B
8903 are twins (same name, class, and type), calls another routine which
8905 (let ((name (car a)) (type (nth 1 a)) (class (nth 2 a)))
8916 ((not (eq type (nth 1 b)))
8918 (< (if (eq type 'fun) 1 0) (if (eq (nth 1 b) 'fun) 1 0)))
8928 (let* ((name (car a)) (type (nth 1 a)) (class (nth 2 a)) ; needed outside