[elpa] externals/smalltalk-mode 81dda06 10/34: fix Emacs mode glitches reported by Jeronimo Pellegrini

[Stefan Monnier]

branch: externals/smalltalk-mode
commit 81dda068b3a197270ad97d696fc94d7ff3e27e2a
Author: Paolo Bonzini <address@hidden>
Commit: Paolo Bonzini <address@hidden>

    fix Emacs mode glitches reported by Jeronimo Pellegrini
    
    2008-03-04  Paolo Bonzini  <address@hidden>
    
        * main.c: Set GST_NO_TTY in Emacs mode.
        * smalltalk-mode.el.in: Fix smalltalk-bang for old syntax.
        * gst-mode.el.in: Wrap send-to-smalltalk with save-window-excursion.
---
 gst-mode.el.in       |  8 ++++----
 smalltalk-mode.el.in | 14 +++++++-------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/gst-mode.el.in b/gst-mode.el.in
index 241f4be..e71cd28 100644
--- a/gst-mode.el.in
+++ b/gst-mode.el.in
@@ -364,9 +364,9 @@ running."
            (progn (end-of-line)
                   (insert "\n"))))
 
-      (if mode (setq mode-status mode)))
+      (if mode (setq mode-status mode))
 
-    (if fileinfo
+      (if fileinfo
        (let (temp-file buf switch-back old-buf)
          (setq temp-file (concat "/tmp/" (make-temp-name "gst")))
          (save-excursion
@@ -382,8 +382,8 @@ running."
           (format
            "FileStream fileIn: '%s' line: %d from: '%s' at: %d\n"
            temp-file (nth 0 fileinfo) (nth 1 fileinfo) (nth 2 fileinfo))))
-      (comint-send-string *smalltalk-process* str))
-    (switch-to-buffer-other-window (process-buffer *smalltalk-process*)))
+        (comint-send-string *smalltalk-process* str))
+      (switch-to-buffer-other-window (process-buffer *smalltalk-process*))))
 
 
 (provide 'gst-mode)
diff --git a/smalltalk-mode.el.in b/smalltalk-mode.el.in
index 4b9d499..99bfe4e 100644
--- a/smalltalk-mode.el.in
+++ b/smalltalk-mode.el.in
@@ -355,13 +355,13 @@ expressions."
 (defun smalltalk-bang ()
   (interactive)
   (cond ((or (smalltalk-in-string) (smalltalk-in-comment)) (insert "!"))
-        (t (if (smalltalk-in-bang-syntax)
-               (progn (insert "!")
-                (save-excursion
-                  (beginning-of-line)
-                  (if (looking-at "^[ \t]+!")
-                      (delete-horizontal-space)))))
-          (smalltalk-end-of-defun))))
+        ((smalltalk-in-bang-syntax)
+           (progn (insert "!")
+            (save-excursion
+              (beginning-of-line)
+              (if (looking-at "^[ \t]+!")
+                  (delete-horizontal-space)))))
+        (t (smalltalk-end-of-defun))))
 
 (defun smalltalk-end-of-defun ()
   (interactive)