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-mode/trunk/sml-proc.el
ViewVC logotype

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

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

revision 764, Sun Dec 24 19:59:10 2000 UTC revision 765, Sun Dec 24 19:59:17 2000 UTC
# Line 355  Line 355 
355    (set (make-local-variable 'sml-error-cursor) (point-max-marker))    (set (make-local-variable 'sml-error-cursor) (point-max-marker))
356    (set-marker-insertion-type sml-error-cursor nil)    (set-marker-insertion-type sml-error-cursor nil)
357    
358    ;; compilation support (used for next-error)    ;; Compilation support (used for `next-error').
359      ;; The keymap of compilation-minor-mode is too unbearable, so we
360      ;; just can't use the minor-mode if we can't override the map.
361      (when (boundp 'minor-mode-overriding-map-alist)
362    (set (make-local-variable 'compilation-error-regexp-alist)    (set (make-local-variable 'compilation-error-regexp-alist)
363         sml-error-regexp-alist)         sml-error-regexp-alist)
364    (compilation-minor-mode 1)    (compilation-minor-mode 1)
365    ;; eliminate compilation-minor-mode's map since its Mouse-2 binding      ;; Eliminate compilation-minor-mode's map.
   ;; is just too unbearable.  
366    (add-to-list 'minor-mode-overriding-map-alist    (add-to-list 'minor-mode-overriding-map-alist
367                 (cons 'compilation-minor-mode (make-sparse-keymap)))                 (cons 'compilation-minor-mode (make-sparse-keymap)))
368    ;; I'm sure people might kill me for that    ;; I'm sure people might kill me for that
369    (setq compilation-error-screen-columns nil)    (setq compilation-error-screen-columns nil)
370    (make-local-variable 'sml-endof-error-alist)      (make-local-variable 'sml-endof-error-alist))
371    ;;(make-local-variable 'sml-error-overlay)    ;;(make-local-variable 'sml-error-overlay)
372    
373    (setq mode-line-process '(": %s")))    (setq mode-line-process '(": %s")))

Legend:
Removed from v.764  
changed lines
  Added in v.765

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