CVS: sml/sml-mode sml-proc.el,1.21,1.22
Stefan Monnier <[email protected]>
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml/sml-mode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2676
Modified Files:
sml-proc.el
Log Message:
(inferior-sml-mode): Preserve the menu-bar of the
compilation minor mode, if any.
Index: sml-proc.el
===================================================================
RCS file: /cvsroot/smlnj/sml/sml-mode/sml-proc.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** sml-proc.el 15 Nov 2004 03:51:19 -0000 1.21
--- sml-proc.el 16 Nov 2005 23:49:07 -0000 1.22
***************
*** 1,5 ****
;;; sml-proc.el --- Comint based interaction mode for Standard ML.
! ;; Copyright (C) 1999,2000,03,04 Stefan Monnier
;; Copyright (C) 1994-1997 Matthew J. Morley
;; Copyright (C) 1989 Lars Bo Nielsen
--- 1,5 ----
;;; sml-proc.el --- Comint based interaction mode for Standard ML.
! ;; Copyright (C) 1999, 2000, 2003, 2004, 2005 Stefan Monnier
;; Copyright (C) 1994-1997 Matthew J. Morley
;; Copyright (C) 1989 Lars Bo Nielsen
***************
*** 370,375 ****
(compilation-minor-mode 1)
;; Eliminate compilation-minor-mode's map.
! (add-to-list 'minor-mode-overriding-map-alist
! (cons 'compilation-minor-mode (make-sparse-keymap)))
;; I'm sure people might kill me for that
(setq compilation-error-screen-columns nil)
--- 370,379 ----
(compilation-minor-mode 1)
;; Eliminate compilation-minor-mode's map.
! (let ((map (make-sparse-keymap)))
! (dolist (keys '([menu-bar] [follow-link]))
! ;; Preserve some of the bindings.
! (define-key map keys (lookup-key compilation-minor-mode-map keys)))
! (add-to-list 'minor-mode-overriding-map-alist
! (cons 'compilation-minor-mode map)))
;; I'm sure people might kill me for that
(setq compilation-error-screen-columns nil)
-------------------------------------------------------
This SF.Net email is sponsored by the JBoss Inc. Get Certified Today
Register for a JBoss Training Course. Free Certification Exam
for All Training Attendees Through End of 2005. For more info visit:
http://ads.osdn.com/?ad_id=7628&alloc_id=16845&op=click