(defalias 'jimb-line-dashes (read-kbd-macro
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - RET"))

(defalias 'jimb-d2u (read-kbd-macro
"<C-home> M-x replace- string RET C-q C-m 2*RET <C-home> M-x replace- string RET C-q C-z 2*RET <C-home>"))

;;(fset 'jimb-u2d
;;   [?\M-x ?r ?e ?p ?l ?a ?c ?e ?- ?s ?t ?r tab return ?\C-q ?\C-j return ?\C-q ?\C-m ?\C-q ?\C-j return])
(defalias 'jimb-u2d (read-kbd-macro
"<C-home> M-x replace- string RET C-q C-j RET C-q C-m C-q C-j RET"))

;; -- C/C++ skeletons --

(fset 'jimb-c-skeleton
   [?# ?i ?n ?c ?l ?u ?d ?e ?  ?< ?s ?t ?d ?l ?i ?b ?. ?h ?> return ?# ?i ?n ?c ?l ?u ?d ?e ?  ?< ?s ?t ?d ?i ?o ?. ?h ?> return return ?i ?n ?t return ?m ?a ?i ?n ?( ?  ?i ?n ?t ?  ?a ?r ?g ?c ?, ?  ?c ?h ?a ?r ?* ?* ?  ?a ?r ?g ?v ?  ?) return ?{ return ?} return])

(fset 'jimb-c++-skeleton
   [?# ?i ?n ?c ?l ?u ?d ?e ?  ?< ?i ?o ?s ?t ?r ?e ?a ?m ?> return ?u ?s ?i ?n ?g ?  ?n ?a ?m ?e ?s ?p ?a ?c ?e ?  ?s ?t ?d ?\; return return ?i ?n ?t ?  ?m ?a ?i ?n ?( ?  ?i ?n ?t ?  ?a ?r ?g ?c ?, ?  ?c ?h ?a ?r ?* ?* ?  ?a ?r ?g ?v ?  ?) return ?{ return ?} return])

;;-- C comments --

;; OBSOLETE (stars go to line 78 instead of 80).
;;(defalias 'jimb-c-head-comment (read-kbd-macro
;;"/********************** *********************** *********************** ********* RET SPC * RET SPC *********************** *********************** *********************** ********/ <up> C-a C-e SPC"))

(fset 'jimb-c-head-comment
   [?/ ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* return ?  ?* return ?  ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?/ up ? ])

(fset 'jimb-c-function-comment
   [?/ ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* return ?  ?* return ?  ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?/ up ? ])

;;-- C++ comments --

(fset 'jimb-c++-method-comment-cc
   [?/ ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* return ?  ?* return ?  ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?/ up ? ])

(fset 'jimb-c++-method-comment-hh
   [?\C-o ?  ?  ?  ?  ?/ ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* return ?  ?  ?  ?  ?  ?* return ?  ?  ?  ?  ?  ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?/ up ? ])

(fset 'jimb-c++-class-comment
   [?\C-o ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ return ?/ ?/ ? ])

(fset 'jimb-c++-section-comment-hh
   [?\C-o ?/ ?/ ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- return ?/ ?/ return ?/ ?/ ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- up ? ])

(fset 'jimb-c++-section-comment-cc
   [?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ return ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?  ?  ?  ?  ?  ?  ?  ?  ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ return ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ up left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left left right])

;;-- Java comments --

(fset 'jimb-java-method-comment
   [?\C-o ?  ?  ?  ?  ?/ ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* return ?  ?  ?  ?  ?  ?* return ?  ?  ?  ?  ?  ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?* ?/ up ? ])

(fset 'jimb-java-section-comment
   [?\C-o ?  ?  ?  ?  ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ return ?  ?  ?  ?  ?/ ?/ return ?  ?  ?  ?  ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ ?/ up ? ])

;; Works when the cursor is over the middle, not the first char.
(defalias 'jimb-mprefix (read-kbd-macro
"<M-left> m SPC <right> SPC 2*<left> M-u 2*<left> DEL <right> DEL"))

(defalias 'jimb-camel (read-kbd-macro
"C-s _ <left> DEL SPC <right> SPC 2*<left> M-u 2*<left> DEL <right> DEL"))

;;----------------------------
;;OLD-STYLE BASED ON 3 SPACES:
;;
;;(defalias 'jimb-comment (read-kbd-macro
;;"2*SPC /* RET 3*SPC * RET 3*SPC */ RET 2*<up> 4*<right> SPC"))
;;
;;(defalias 'jimb-c-body-comment (read-kbd-macro
;;"4*SPC /********************** *********************** *********************** ***** RET 5*SPC * RET 5*SPC *********************** *********************** *********************** ****/ RET 2*<up> 7*<right> <left> SPC"))
;;
;;(defalias 'jimb-c++-comment (read-kbd-macro
;;"RET <up> 3*SPC // SPC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - RET 3*SPC // RET 3*SPC // SPC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <up> SPC"))
;;
;;(defalias 'jimb-c++-function (read-kbd-macro
;;"RET <up> void SPC ( SPC void SPC ) RET { RET M-x jimb- c++- comment RET C-a 2*<down> RET } RET 2*<up> RET 3*SPC"))
;;----------------------------

;;----------------------------
;; OBSOLETE C STYLE (hypersrc)
;;(defalias 'jimb-comment
;;  (read-kbd-macro "RET <up> TAB /* RET TAB SPC * RET TAB SPC */ <up> SPC"))
;;
;;(defalias 'jimb-comment2
;;  (read-kbd-macro "RET <up> 2*TAB /* RET 2*TAB SPC * RET 2*TAB SPC */ <up> SPC"))
;;
;;(defalias 'jimb-comment3
;;  (read-kbd-macro "RET <up> 3*TAB /* RET 3*TAB SPC * RET 3*TAB SPC */ <up> SPC"))
;;----------------------------

(fset 'jimb-sig-old
   [return ?- ?- return ?J ?i ?m ?  ?B ?r ?o ?o ?k ?s ?  ?  ?j ?b ?@ ?j ?i ?m ?b ?r ?o ?o ?k ?s ?. ?o ?r ?g return])

(fset 'jimb-sig
   [return ?- ?- return ?J ?i ?m ?  ?B ?r ?o ?o ?k ?s ?  ?  ?j ?i ?m ?b ?@ ?s ?a ?b ?a ?l ?s ?o ?f ?t ?w ?a ?r ?e ?. ?c ?o ?m return])