Lines Matching defs:insert
29 ;; a name to the last-defined keyboard macro, expand and insert the
54 (defun insert-kbd-macro (macroname &optional keys)
80 (insert "(setq "))
82 (insert "(fset '"))
84 (insert "\n ")
94 (insert "\\C-@"))
97 (insert "\\C-" (+ 96 char)))
100 (insert "\\C-\\\\"))
103 (insert "\\C-" (+ 64 char)))
108 (insert "\\C-?"))
111 (insert "\\M-\\C-@"))
114 (insert "\\M-\\C-\\\\"))
117 (insert "\\M-\\C-" (- char 32)))
120 (insert "\\M-\\C-" (- char 64)))
123 (insert "\\M-\\\\"))
126 (insert "\\M-" (- char 128)))
129 (insert "\\M-\\C-?"))))))
133 (insert (if (zerop i) ?\[ ?\s))
139 (insert "?")
144 (insert "\\C-"))
146 (insert "\\M-"))
148 (insert "\\H-"))
150 (insert "\\s-"))
152 (insert "\\A-"))
158 (insert "\\S-")))
161 (insert "\\\\"))
163 (insert "\\\""))
165 (insert "\\;"))
167 (insert "\\C-?"))
169 (insert char))
170 (t (insert "\\" (format "%o" char)))))))
171 (insert ?\]))
173 (insert ")\n")
177 (insert "(global-set-key ")
179 (insert " '")
181 (insert ")\n")