-;;; expand.el --- make abbreviations more usable.
+;;; expand.el --- make abbreviations more usable
;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
;; ("default" "default:\n\nbreak;" 10)
;; ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37))
;; "Expansions for C mode")
-;;
+;;
;; and enter Abbrev mode with the following hook :
;;
;; (add-hook 'c-mode-hook (function (lambda ()
"Loop var: "
"for(" str _ @ "=0; " str @ "; " str @ ") {" \n
@ _ \n
- "}" >
- )
+ "}" > \n)
(defconst expand-c-sample-expand-list
'(("if" "if () {\n \n} else {\n \n}" (5 10 21))
(concat
"(defmacro ()\n"
" \"\"\n"
- " (` \n"
+ " `( \n"
" ))")
(list 11 13 18 25))
)
"Expansions for Lisp mode. See `expand-add-abbrevs'.")
-
+
;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi>
(defconst expand-sample-perl-mode-expand-list
(list
(defun expand-skeleton-end-hook ()
(if skeleton-positions
(setq expand-list skeleton-positions)))
-
+
(add-hook 'skeleton-end-hook (function expand-skeleton-end-hook))
(provide 'expand)
;; run load hooks
(run-hooks 'expand-load-hook)
+;;; arch-tag: fee53e9e-30e3-4ef3-b191-9785e1f8e885
;;; expand.el ends here