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-defs.el
ViewVC logotype

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

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

revision 346, Mon Jun 21 05:07:29 1999 UTC revision 347, Mon Jun 21 15:08:30 1999 UTC
# Line 43  Line 43 
43      ("\M-\ "    . sml-electric-pipe)      ("\M-\ "    . sml-electric-pipe)
44      ("\;"       . sml-electric-semi)      ("\;"       . sml-electric-semi)
45      ("\M-\t"    . sml-back-to-outer-indent)      ("\M-\t"    . sml-back-to-outer-indent)
46      ("\C-\M-\\" . sml-indent-region)      ;;("\C-\M-\\"       . sml-indent-region)
47      ("\t"       . sml-indent-line)      ; ...except this one      ;;("\t"     . sml-indent-line)      ; ...except this one
48      ;; Process commands added to sml-mode-map -- these should autoload      ;; Process commands added to sml-mode-map -- these should autoload
49      ("\C-c\C-l" . sml-load-file)      ("\C-c\C-l" . sml-load-file)
50      ("\C-c`"    . sml-next-error))      ("\C-c`"    . sml-next-error))
# Line 122  Line 122 
122  ;; regexps  ;; regexps
123  ;;  ;;
124    
125    (defvar sml-fixindent-re
126      (concat ".*" (regexp-quote comment-start)
127              "[ \t]*fixindent[ \t]*"
128              (regexp-quote comment-end))
129      "Regexp matching the magic string overriding indentation.")
130    
131    ;;
132    
133  (defun sml-syms-re (&rest syms)  (defun sml-syms-re (&rest syms)
134    (concat "\\<" (regexp-opt (flatten syms) t) "\\>"))    (concat "\\<" (regexp-opt (flatten syms) t) "\\>"))
135    

Legend:
Removed from v.346  
changed lines
  Added in v.347

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