CVS update by james packages/xemacs-packages/sh-script ...

[xemacs-cvs at xemacs.org]

  User: james   
  Date: 08/03/19 16:02:03

  Modified:    packages/xemacs-packages/sh-script ChangeLog executable.el
Log:
XEmacs' compile-internal takes different parameters than the Emacs version.
Diagnosis and fix by It's me FKtPp ;) <m_pupil at yahoo.com.cn>.

Revision  Changes    Path
1.31      +5 -0      XEmacs/packages/xemacs-packages/sh-script/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/sh-script/ChangeLog,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -p -r1.30 -r1.31
--- ChangeLog	2008/02/10 19:09:00	1.30
+++ ChangeLog	2008/03/19 15:02:03	1.31
@@ -1,3 +1,8 @@
+2008-03-19  It's me FKtPp ;)  <m_pupil at yahoo.com.cn>
+
+	* executable.el (executable-interpret): Correct compile-internal's
+	parameters to avoid error when `C-c C-x' (executable-interpret).
+
 2008-02-10  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.23 released.



1.5       +7 -1      XEmacs/packages/xemacs-packages/sh-script/executable.el

Index: executable.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/sh-script/executable.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- executable.el	2005/10/15 21:27:07	1.4
+++ executable.el	2008/03/19 15:02:03	1.5
@@ -223,7 +223,13 @@ command to find the next error.  The buf
   (save-some-buffers (not compilation-ask-about-save))
   (set (make-local-variable 'executable-command) command)
   (let ((compilation-error-regexp-alist executable-error-regexp-alist))
-    (compile-internal command t (lambda (x) "*interpretation*"))))
+    ;; XEmacs change: argument to compile-internal differ from Emacs
+    (compile-internal command
+		      "No more errors"
+		      nil
+		      nil
+		      nil
+		      (lambda (x) "*interpretation*"))))