Paul, others,
Attached is the patch that implements a new completion
tryfi -> "try {} finally {}"
(with appropriate formatting a-la the tryf completion)
Thanks,
--
Nick
--- jde-gen.el.orig Fri Nov 14 03:10:47 2003
+++ jde-gen.el Fri Nov 14 03:36:04 2003
@@ -2666,7 +2666,7 @@
" \"{\"'>'n'>'r'n"
" \"}\""
" (if jde-gen-comments "
- " '(l \" // end of try-finally\"))"
+ " '(l \" // end of try-catch-finally\"))"
" '>'n'>)"
" )"
)
@@ -2681,6 +2681,41 @@
(jde-gen-read-template val))
(set-default sym val)))
+(defcustom jde-gen-cflow-try-finally-no-catch
+ '(
+ "(if (jde-parse-comment-or-quoted-p)"
+ " '(l \"try\")"
+ " '(l '> \"try \""
+ " (if jde-gen-k&r "
+ " ()"
+ " 'n)"
+ " \"{\"'>'n'>'r'n"
+ " \"}\" '>"
+ " (if jde-gen-k&r "
+ " jde-gen-conditional-padding-3 "
+ " 'n)"
+ " \"finally\" '>"
+ " (if jde-gen-k&r "
+ " jde-gen-conditional-padding-3 "
+ " 'n)"
+ " \"{\"'>'n'>'r'n"
+ " \"}\""
+ " (if jde-gen-comments "
+ " '(l \" // end of try-finally\"))"
+ " '>'n'>)"
+ " )"
+ )
+ "Skeleton try-finally statement. To insert the statement at point, type
+tryf and then space. Note that abbrev mode must be enabled. See
+`jde-enable-abbrev-mode' for more information."
+ :group 'jde-gen
+ :type '(repeat string)
+ :set '(lambda (sym val)
+ (jde-gen-define-abbrev-template
+ "tryfi"
+ (jde-gen-read-template val))
+ (set-default sym val)))
+
(defcustom jde-gen-cflow-finally
'(
"(if (jde-parse-comment-or-quoted-p)"
@@ -2995,35 +3030,36 @@
;; Unit Test Table for JDE Gen Methods
;; -----------------------------------
-;; Comm = jde-gen-comments|Comm t|Comm nil|Comm t |Comm nil
-;; K&R = jde-gen-k&r |K&R t|K&R t |K&R nil|K&R nil
-;; -------------------------------+------+--------+--------+--------
-;; jde-gen-get-set | | | |
-;; jde-gen-inner-class | | | |
-;; jde-gen-action-listener | | | |
-;; jde-gen-change-listener | | | |
-;; jde-gen-window-listener | | | |
-;; jde-gen-mouse-listener | | | |
-;; jde-gen-mouse-motion-listener | | | |
-;; jde-gen-to-string-method | | | |
-;; jde-gen-property-change-support| | | |
-;; jde-gen-entity-bean | | | |
-;; jde-gen-session-bean | | | |
-;; jde-gen-cflow-if | | | |
-;; jde-gen-cflow-else | | | |
-;; jde-gen-cflow-if-else | | | |
-;; jde-gen-cflow-else-if | | | |
-;; jde-gen-cflow-while | | | |
-;; jde-gen-cflow-for | | | |
-;; jde-gen-cflow-for-I | | | |
-;; jde-gen-cflow-for-iter | | | |
-;; jde-gen-cflow-main | | | |
-;; jde-gen-cflow-switch | | | |
-;; jde-gen-cflow-case | | | |
-;; jde-gen-cflow-try-catch | | | |
-;; jde-gen-cflow-catch | | | |
-;; jde-gen-cflow-try-finally | | | |
-;; jde-gen-cflow-finally | | | |
+;; Comm = jde-gen-comments |Comm t|Comm nil|Comm t |Comm nil
+;; K&R = jde-gen-k&r |K&R t|K&R t |K&R nil|K&R nil
+;; ---------------------------------+------+--------+--------+--------
+;; jde-gen-get-set | | | |
+;; jde-gen-inner-class | | | |
+;; jde-gen-action-listener | | | |
+;; jde-gen-change-listener | | | |
+;; jde-gen-window-listener | | | |
+;; jde-gen-mouse-listener | | | |
+;; jde-gen-mouse-motion-listener | | | |
+;; jde-gen-to-string-method | | | |
+;; jde-gen-property-change-support | | | |
+;; jde-gen-entity-bean | | | |
+;; jde-gen-session-bean | | | |
+;; jde-gen-cflow-if | | | |
+;; jde-gen-cflow-else | | | |
+;; jde-gen-cflow-if-else | | | |
+;; jde-gen-cflow-else-if | | | |
+;; jde-gen-cflow-while | | | |
+;; jde-gen-cflow-for | | | |
+;; jde-gen-cflow-for-I | | | |
+;; jde-gen-cflow-for-iter | | | |
+;; jde-gen-cflow-main | | | |
+;; jde-gen-cflow-switch | | | |
+;; jde-gen-cflow-case | | | |
+;; jde-gen-cflow-try-catch | | | |
+;; jde-gen-cflow-catch | | | |
+;; jde-gen-cflow-try-finally | | | |
+;; jde-gen-cflow-try-finally-nocatch| | | |
+;; jde-gen-cflow-finally | | | |
;; $Log: jde-gen.el,v $
;; Revision 1.69 2003/09/22 03:14:55 paulk
