Date: Sun, 17 Dec 1995 20:00:54 +0000 () From: James Raynard <james@parody.tecc.co.uk> To: ports@freebsd.org Cc: gpalmer@freebsd.org Subject: GNU Smalltalk patches (correction) Message-ID: <Pine.BSF.3.91.951217195655.604A-100000@parody.tecc.co.uk>
next in thread | raw e-mail | index | archive | help
The patch for st.el I posted should be replaced by the following, as
commands typed at the interactor prompt weren't being executed.
James
Segmentation fault (core dumped): cannot find file '.signature'
*** /usr/ports/lang/smalltalk/work/smalltalk-1.1.1/st.el.orig Sun Dec
10 17:55:54 1995
--- /usr/ports/lang/smalltalk/work/smalltalk-1.1.1/st.el Sat Dec
16 12:02:33 1995
***************
*** 25,31 ****
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! (require 'shell)
(defvar smalltalk-name-regexp "[A-Za-z][A-Za-z0-9]*"
"A regular expression that matches a Smalltalk identifier")
--- 25,31 ----
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! (require 'comint)
(defvar smalltalk-name-regexp "[A-Za-z][A-Za-z0-9]*"
"A regular expression that matches a Smalltalk identifier")
***************
*** 708,720 ****
nil
(if proc (delete-process proc))
(setq proc (apply 'start-process name buffer
! (concat exec-directory "env")
;; I'm choosing to leave these here
(format "TERMCAP=emacs:co#%d:tc=unknown:"
(screen-width))
"TERM=emacs"
"EMACS=t"
- "-"
"mst"
switches))
(setq name (process-name proc)))
--- 708,719 ----
nil
(if proc (delete-process proc))
(setq proc (apply 'start-process name buffer
! "/usr/bin/env"
;; I'm choosing to leave these here
(format "TERMCAP=emacs:co#%d:tc=unknown:"
(screen-width))
"TERM=emacs"
"EMACS=t"
"mst"
switches))
(setq name (process-name proc)))
***************
*** 760,772 ****
The following commands imitate the usual Unix interrupt and
editing control characters:
! \\{shell-mode-map}
Entry to this mode calls the value of mst-mode-hook with no arguments,
if that value is non-nil. Likewise with the value of shell-mode-hook.
mst-mode-hook is called after shell-mode-hook."
(interactive)
(kill-all-local-variables)
(setq mode-line-format
'("" mode-line-modified mode-line-buffer-identification " "
global-mode-string " %[(" mode-name ": " mode-status
--- 759,773 ----
The following commands imitate the usual Unix interrupt and
editing control characters:
! \\{comint-mode-map}
Entry to this mode calls the value of mst-mode-hook with no arguments,
if that value is non-nil. Likewise with the value of shell-mode-hook.
mst-mode-hook is called after shell-mode-hook."
(interactive)
(kill-all-local-variables)
+ (comint-mode)
+ (setq comint-prompt-regexp shell-prompt-pattern)
(setq mode-line-format
'("" mode-line-modified mode-line-buffer-identification " "
global-mode-string " %[(" mode-name ": " mode-status
***************
*** 774,787 ****
(setq major-mode 'mst-mode)
(setq mode-name "Smalltalk")
;; (setq mode-line-process '(": %s"))
! (use-local-map shell-mode-map)
(make-local-variable 'last-input-start)
(setq last-input-start (make-marker))
! (make-local-variable 'last-input-end)
! (setq last-input-end (make-marker))
(make-local-variable 'mode-status)
(setq mode-status "starting-up")
! (run-hooks 'shell-mode-hook 'mst-mode-hook))
--- 775,788 ----
(setq major-mode 'mst-mode)
(setq mode-name "Smalltalk")
;; (setq mode-line-process '(": %s"))
! (use-local-map comint-mode-map)
(make-local-variable 'last-input-start)
(setq last-input-start (make-marker))
! (make-local-variable 'comint-last-input-end)
! (setq comint-last-input-end (make-marker))
(make-local-variable 'mode-status)
(setq mode-status "starting-up")
! (run-hooks 'comint-mode-hook 'mst-mode-hook))
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?Pine.BSF.3.91.951217195655.604A-100000>