[AC] package sh-script executable.el (executable-interpret): parameter correction

Okay, I've done done modification as you described. Please find below the patch... Thanks, FKtPp ChangeLog addition: 2008-03-19 It's me FKtPp ;) <m_pupil(a)yahoo.com.cn&gt; * ChangeLog: * executable.el (executable-interpret): sh-script[Packages] source patch: Diff command: cvs -q diff -u Files affected: executable.el =================================================================== RCS ChangeLog =================================================================== RCS Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/sh-script/ChangeLog,v retrieving revision 1.30 diff -u -r1.30 ChangeLog --- ChangeLog 2008/02/10 19:09:00 1.30 +++ ChangeLog 2008/03/19 13:18:20 ＠＠ -1,3 +1,8 ＠＠ +2008-03-15 It's me FKtPp ;) <m_pupil(a)yahoo.com.cn&gt; + + * 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(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.23 released. Index: executable.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/sh-script/executable.el,v retrieving revision 1.4 diff -u -r1.4 executable.el --- executable.el 2005/10/15 21:27:07 1.4 +++ executable.el 2008/03/19 13:18:20 ＠＠ -223,9 +223,13 ＠＠ (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: arguments to compile-internal differ from Emacs + (compile-internal command + "No more errors" + nil + nil + nil + (lambda (x) "*interpretation*")))) ;;;###autoload (defun executable-set-magic (interpreter &optional argument