Lines Matching defs:concat
69 (use-local-map (intern (concat name "-map"))))
72 (use-global-map (intern (concat name "-map"))))
80 (concat (char-to-string meta-prefix-char)
128 (defun ml-message (&rest args) (message "%s" (apply 'concat args)))
143 (setq auto-mode-alist (cons (cons (concat "\\." (substring pattern 1)
225 (let ((symbol (intern (concat name "-abbrev-table"))))
332 (concat "exec " command))))
339 (concat "exec " command))))
343 (set-syntax-table (symbol-value (intern (concat name "-syntax-table")))))
429 (defun ml-concat (&rest args)
437 (apply 'concat (nreverse newargs))))