SCM Repository
| [smlnj] / sml / trunk / sml-mode / sml-move.el |
Diff of /sml/trunk/sml-mode/sml-move.el
Parent Directory
| 
Revision Log
| 
Patch
| revision 338, Thu Jun 17 14:13:58 1999 UTC | revision 339, Thu Jun 17 16:14:01 1999 UTC | |
|---|---|---|
| # | Line 227 | Line 227 |
| 227 | ((and prec op-prec (>= prec op-prec)) nil) | ((and prec op-prec (>= prec op-prec)) nil) |
| 228 | ;; special rules for nested constructs like if..then..else | ;; special rules for nested constructs like if..then..else |
| 229 | ((and (or (not prec) (and prec op-prec)) | ((and (or (not prec) (and prec op-prec)) |
| 230 | (setq match (cdr (assoc op sml-close-paren)))) | (setq match (second (assoc op sml-close-paren)))) |
| 231 | (sml-find-match-backward (concat "\\<" op "\\>") match)) | (sml-find-match-backward (concat "\\<" op "\\>") match)) |
| 232 | ;; don't back over open-parens | ;; don't back over open-parens |
| 233 | ((assoc op sml-open-paren) nil) | ((assoc op sml-open-paren) nil) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
