Lines Matching +defs:indent +defs:string
80 (concat (char-to-string meta-prefix-char)
81 (char-to-string (- key 128)))
82 (char-to-string key))
87 (define-key global-map (if (integerp key) (char-to-string key) key)
93 (defun ml-define-string-macro (name defn)
100 (indent-to column 0))
149 (indent-to comment-column))
200 (defun ml-newline-and-indent ()
203 (indent-to column)))
214 (defun ml-current-indent ()
221 (defun region-to-string ()
308 (defun ml-search-forward (string)
309 (search-forward string nil nil (ml-prefix-argument)))
311 (defun ml-re-search-forward (string)
312 (re-search-forward string nil nil (ml-prefix-argument)))
314 (defun ml-search-backward (string)
315 (search-backward string nil nil (ml-prefix-argument)))
317 (defun ml-re-search-backward (string)
318 (re-search-backward string nil nil (ml-prefix-argument)))
386 (defun execute-mlisp-line (string)
387 (eval (read string)))
394 (defun ml-modify-syntax-entry (string)
396 (len (length string))
397 (datastring (substring string 0 2)))
398 (if (= (aref string 0) ?\-)
400 (if (= (aref string 2) ?\{)
401 (if (= (aref string 4) ?\ )
404 (if (= (aref string 3) ?\})
405 (if (= (aref string 4) ?\ )
409 (modify-syntax-entry (aref string i) datastring)
412 (= (aref string i) ?\-))
413 (let ((c (aref string (1- i)))
414 (lim (aref string (1+ i))))
423 (defun ml-substr (string from to)
424 (let ((length (length string)))
427 (substring string from (+ from to))))
434 (setq this (number-to-string this)))