Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-move.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-move.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 884, Thu Jul 19 20:12:28 2001 UTC revision 885, Thu Jul 19 20:13:07 2001 UTC
# Line 81  Line 81 
81    
82  (defconst sml-syntax-prec  (defconst sml-syntax-prec
83    (sml-preproc-alist    (sml-preproc-alist
84     `(((";" "," "in" "with") . 10)     `((("in" "with") . 10)
85         ((";" ",") . 20)
86       (("=>" "d=" "=of") . (65 . 40))       (("=>" "d=" "=of") . (65 . 40))
87       ("|" . (47 . 30))       ("|" . (47 . 30))
88       (("case" "of" "fn") . 45)       (("case" "of" "fn") . 45)
# Line 192  Line 193 
193        (save-excursion        (save-excursion
194          (sml-backward-sym-1)          (sml-backward-sym-1)
195          (if (sml-nested-of-p) "of" "=of")))          (if (sml-nested-of-p) "of" "=of")))
196         ;; ((equal sym "datatype")
197         ;;  (save-excursion
198         ;;         (sml-backward-sym-1)
199         ;;         (sml-backward-spaces)
200         ;;         (if (eq (preceding-char) ?=) "=datatype" sym)))
201       (t sym))))       (t sym))))
202    
203  (defun sml-backward-sym-1 ()  (defun sml-backward-sym-1 ()
# Line 209  Line 215 
215            (cond            (cond
216             ((string= sym "=") (if (sml-poly-equal-p) "=" "d="))             ((string= sym "=") (if (sml-poly-equal-p) "=" "d="))
217             ((string= sym "of") (if (sml-nested-of-p) "of" "=of"))             ((string= sym "of") (if (sml-nested-of-p) "of" "=of"))
218               ;; ((string= sym "datatype")
219               ;;  (save-excursion (sml-backward-spaces)
220               ;;               (if (eq (preceding-char) ?=) "=datatype" sym)))
221             (t sym)))))))             (t sym)))))))
222    
223    
224  (defun sml-backward-sexp (prec)  (defun sml-backward-sexp (prec)
225    "Moves one sexp backward if possible, or one char else.    "Move one sexp backward if possible, or one char else.
226  Returns T if the move indeed moved through one sexp and NIL if not."  Returns t if the move indeed moved through one sexp and nil if not.
227    PREC is the precedence currently looked for."
228    (let ((parse-sexp-lookup-properties t)    (let ((parse-sexp-lookup-properties t)
229          (parse-sexp-ignore-comments t))          (parse-sexp-ignore-comments t))
230      (sml-backward-spaces)      (sml-backward-spaces)

Legend:
Removed from v.884  
changed lines
  Added in v.885

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0