47 |
;; ("default" "default:\n\nbreak;" 10) |
;; ("default" "default:\n\nbreak;" 10) |
48 |
;; ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37)) |
;; ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37)) |
49 |
;; "Expansions for C mode") |
;; "Expansions for C mode") |
50 |
;; |
;; |
51 |
;; and enter Abbrev mode with the following hook : |
;; and enter Abbrev mode with the following hook : |
52 |
;; |
;; |
53 |
;; (add-hook 'c-mode-hook (function (lambda () |
;; (add-hook 'c-mode-hook (function (lambda () |
144 |
(concat |
(concat |
145 |
"(defmacro ()\n" |
"(defmacro ()\n" |
146 |
" \"\"\n" |
" \"\"\n" |
147 |
" (` \n" |
" `( \n" |
148 |
" ))") |
" ))") |
149 |
(list 11 13 18 25)) |
(list 11 13 18 25)) |
150 |
|
|
184 |
|
|
185 |
) |
) |
186 |
"Expansions for Lisp mode. See `expand-add-abbrevs'.") |
"Expansions for Lisp mode. See `expand-add-abbrevs'.") |
187 |
|
|
188 |
;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi> |
;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi> |
189 |
(defconst expand-sample-perl-mode-expand-list |
(defconst expand-sample-perl-mode-expand-list |
190 |
(list |
(list |
496 |
(defun expand-skeleton-end-hook () |
(defun expand-skeleton-end-hook () |
497 |
(if skeleton-positions |
(if skeleton-positions |
498 |
(setq expand-list skeleton-positions))) |
(setq expand-list skeleton-positions))) |
499 |
|
|
500 |
(add-hook 'skeleton-end-hook (function expand-skeleton-end-hook)) |
(add-hook 'skeleton-end-hook (function expand-skeleton-end-hook)) |
501 |
|
|
502 |
(provide 'expand) |
(provide 'expand) |