Lines Matching +refs:syntax +refs:table
523 (put 'keyboard-translate-table 'char-table-extra-slots 0)
527 This function creates a `keyboard-translate-table' if necessary
529 (or (char-table-p keyboard-translate-table)
530 (setq keyboard-translate-table
531 (make-char-table 'keyboard-translate-table nil)))
532 (aset keyboard-translate-table from to))
944 (defun makehash (&optional test) (make-hash-table :test (or test 'eql)))
945 (make-obsolete 'makehash 'make-hash-table "22.1")
1173 (setq ordering (make-hash-table :weakness 'key :test 'eq))))
2524 (defmacro with-case-table (table &rest body)
2525 "Execute the forms in BODY with TABLE as the current case table.
2528 (let ((old-case-table (make-symbol "table"))
2530 `(let ((,old-case-table (current-case-table))
2533 (progn (set-case-table ,table)
2536 (set-case-table ,old-case-table))))))
2541 (defmacro dynamic-completion-table (fun)
2542 "Use function FUN as a dynamic completion table.
2550 The result of the `dynamic-completion-table' form is a function
2567 (defmacro lazy-completion-table (var fun)
2574 ;; (lazy-completion-table var (lambda () (fun x y)))
2576 ;; (lazy-completion-table var `(lambda () (fun ',x ',y)))
2579 ;; (lazy-completion-table var (lambda () (fun x y))))
2581 "Initialize variable VAR as a lazy completion table.
2582 If the completion table VAR is used for the first time (e.g., by passing VAR
2584 arguments. FUN must return the completion table that will be stored in VAR.
2587 `lazy-completion-table' must be used to initialize the value of VAR.
2592 `(dynamic-completion-table
2599 "Create a completion table that first tries completion in A and then in B.
2700 ;; details of the syntax. A disadvantage is that it needs to match the
2887 (defmacro with-syntax-table (table &rest body)
2888 "Evaluate BODY with syntax table of current buffer set to TABLE.
2889 The syntax table of the current buffer is saved, BODY is evaluated, and the
2890 saved table is restored, even in case of an abnormal exit.
2893 (let ((old-table (make-symbol "table"))
2895 `(let ((,old-table (syntax-table))
2899 (set-syntax-table ,table)
2903 (set-syntax-table ,old-table))))))
2905 (defun make-syntax-table (&optional oldtable)
2906 "Return a new syntax table.
2907 Create a syntax table which inherits from OLDTABLE (if non-nil) or
2908 from `standard-syntax-table' otherwise."
2909 (let ((table (make-char-table 'syntax-table nil)))
2910 (set-char-table-parent table (or oldtable (standard-syntax-table)))
2911 table))
2913 (defun syntax-after (pos)
2914 "Return the raw syntax of the char after POS.
2918 (get-char-property pos 'syntax-table))))
2920 (aref (or st (syntax-table)) (char-after pos))))))
2922 (defun syntax-class (syntax)
2923 "Return the syntax class part of the syntax descriptor SYNTAX.
2925 (and syntax (logand (car syntax) 65535)))
2939 (when (overlay-get ol1 'text-clone-syntax)
2946 (overlay-get ol1 'text-clone-syntax) cend t))
2979 (defun text-clone-create (start end &optional spreadp syntax)
3011 (when syntax (overlay-put ol1 'text-clone-syntax syntax))
3018 (when syntax (overlay-put ol2 'text-clone-syntax syntax))
3269 The version syntax is given by the following EBNF:
3281 As an example of valid version syntax:
3285 As an example of invalid version syntax:
3329 (or al (error "Invalid version syntax: '%s'" ver))
3332 (error "Invalid version syntax: '%s'" ver)