Lines Matching +defs:table +defs:string
58 (defvar scheme-mode-syntax-table
59 (let ((st (make-syntax-table))
118 (defvar scheme-mode-abbrev-table nil)
119 (define-abbrev-table 'scheme-mode-abbrev-table ())
131 (set-syntax-table scheme-mode-syntax-table)
132 (setq local-abbrev-table scheme-mode-abbrev-table)
181 (font-lock-extra-managed-props syntax-table)))
182 (set (make-local-variable 'lisp-doc-string-elt-property)
183 'scheme-doc-string-elt))
257 If it is defined as a string this will be inserted into an empty buffer
260 :type '(choice (string :tag "Specified string")
279 :type 'string
361 (defconst scheme-sexp-comment-syntax-table
362 (let ((st (make-syntax-table scheme-mode-syntax-table)))
368 (put 'lambda 'scheme-doc-string-elt 2)
370 (put 'define 'scheme-doc-string-elt
394 'syntax-table scheme-sexp-comment-syntax-table))
395 (put-text-property (- end 1) end 'syntax-table '(12)))))
410 that variable's value is a string."
501 (string-match "\\`def" function)))
513 (defun would-be-symbol (string)
514 (not (string-equal (substring string 0 1) "(")))
516 (defun next-sexp-as-string ()
526 ;; (if (would-be-symbol (next-sexp-as-string))
576 (put 'with-input-from-string 'scheme-indent-function 1)
577 (put 'with-output-to-string 'scheme-indent-function 0)
580 (put 'syntax-table-define 'scheme-indent-function 2)