209 |
(looking-at "[`'\"\\]\\|\\s("))) |
(looking-at "[`'\"\\]\\|\\s("))) |
210 |
nil) |
nil) |
211 |
(t |
(t |
212 |
(insert-string " "))) |
(insert " "))) |
213 |
(insert-string moused-text) |
(insert moused-text) |
214 |
(or (eolp) |
(or (eolp) |
215 |
(looking-at "\\s.\\|\\s)") |
(looking-at "\\s.\\|\\s)") |
216 |
(and (looking-at "'") (looking-at "\\sw")) ;hack for text mode |
(and (looking-at "'") (looking-at "\\sw")) ;hack for text mode |
217 |
(save-excursion (insert-string " "))))) |
(save-excursion (insert " "))))) |
218 |
|
|
219 |
;;; Utility functions: |
;;; Utility functions: |
220 |
|
|