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 699, Mon Aug 21 22:13:39 2000 UTC revision 700, Thu Aug 24 20:35:39 2000 UTC
# Line 36  Line 36 
36  ;;; Internal defines  ;;; Internal defines
37  ;;;  ;;;
38    
39  (defmap sml-bindings  (defmap sml-mode-map
40    ;; smarter cursor movement    ;; smarter cursor movement
41    '((forward-sexp       . sml-user-forward-sexp)    '((forward-sexp       . sml-user-forward-sexp)
42      (backward-sexp      . sml-user-backward-sexp)      (backward-sexp      . sml-user-backward-sexp)
# Line 44  Line 44 
44      ("\C-c\C-m" . sml-insert-form)      ("\C-c\C-m" . sml-insert-form)
45      ("\C-c\C-i" . sml-mode-info)      ("\C-c\C-i" . sml-mode-info)
46      ("\M-|"     . sml-electric-pipe)      ("\M-|"     . sml-electric-pipe)
47      ("\M-\ "    . sml-electric-pipe)      ("\M-\ "    . sml-electric-space)
48      ("\;"       . sml-electric-semi)      ("\;"       . sml-electric-semi)
49      ("\M-\t"    . sml-back-to-outer-indent)      ("\M-\t"    . sml-back-to-outer-indent)
     ;;("\C-\M-\\"       . sml-indent-region)  
     ;;("\t"     . sml-indent-line)      ; ...except this one  
50      ;; Process commands added to sml-mode-map -- these should autoload      ;; Process commands added to sml-mode-map -- these should autoload
51      ("\C-c\C-l" . sml-load-file)      ("\C-c\C-l" . sml-load-file)
52      ;;("\C-c`"  . sml-next-error)      ("\C-c\C-c" . sml-compile)
     )  
   "Generic bindings used in `sml-mode' and `inferior-sml-mode'."  
   :group 'sml)  
   
 (defmap sml-mode-map  
   '(("\C-c\C-c" . sml-compile)  
53      ("\C-c\C-s" . switch-to-sml)      ("\C-c\C-s" . switch-to-sml)
54      ("\C-c\C-r" . sml-send-region)      ("\C-c\C-r" . sml-send-region)
55      ("\C-c\C-b" . sml-send-buffer)      ("\C-c\C-b" . sml-send-buffer)
56      ([(meta shift down-mouse-1)] . sml-drag-region))      ([(meta shift down-mouse-1)] . sml-drag-region))
57    "The keymap used in `sml-mode'."    "The keymap used in `sml-mode'."
58    :inherit sml-bindings    ;; :inherit sml-bindings
59    :group 'sml)    :group 'sml)
60    
61  (defsyntax sml-mode-syntax-table  (defsyntax sml-mode-syntax-table
# Line 75  Line 67 
67      ;; `!' is not really a prefix-char, oh well!      ;; `!' is not really a prefix-char, oh well!
68      ("~#!" . "'")      ("~#!" . "'")
69      ("%&$+-/:<=>?@`^|"   . "."))      ("%&$+-/:<=>?@`^|"   . "."))
70    "The syntax table used in sml-mode.")    "The syntax table used in `sml-mode'.")
   
71    
72    
73  (easy-menu-define sml-mode-menu sml-mode-map "Menu used in sml-mode."  (easy-menu-define sml-mode-menu sml-mode-map "Menu used in sml-mode."
# Line 94  Line 85 
85       ;;["goto next error"               sml-next-error  (featurep 'sml-proc)]       ;;["goto next error"               sml-next-error  (featurep 'sml-proc)]
86       ["goto next error"         next-error      (featurep 'sml-proc)]       ["goto next error"         next-error      (featurep 'sml-proc)]
87       ["---" nil nil]       ["---" nil nil]
88       ["Standard ML of New Jersey" sml-smlnj     (fboundp 'sml-smlnj)]       ;; ["Standard ML of New Jersey" sml-smlnj  (fboundp 'sml-smlnj)]
89       ["Poly/ML"                 sml-poly-ml     (fboundp 'sml-poly-ml)]       ;; ["Poly/ML"                      sml-poly-ml     (fboundp 'sml-poly-ml)]
90       ["Moscow ML"               sml-mosml       (fboundp 'sml-mosml)]       ;; ["Moscow ML"            sml-mosml       (fboundp 'sml-mosml)]
91       ["Help for Inferior ML"    (describe-function 'inferior-sml-mode) :active (featurep 'sml-proc)])       ["Help for Inferior ML"    (describe-function 'inferior-sml-mode) :active (featurep 'sml-proc)])
92      ["electric pipe"     sml-electric-pipe t]      ["electric pipe"     sml-electric-pipe t]
93      ["insert SML form"   sml-insert-form t]      ["insert SML form"   sml-insert-form t]

Legend:
Removed from v.699  
changed lines
  Added in v.700

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