Changeset 7cdd73b in git

Timestamp:

May 19, 2000, 1:13:32 PM (24 years ago)

Author:

Tim Wichmann <wichmann@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2fa4863e3dfc84f9599610cd5b782861db4d66cf

Parents:

cdd77863cfc99927aafd79a76fd6cc64982d1ff8

Message:

	* singular.el (singular-exec): Remove empty strings from SWITCHES


git-svn-id: file:///usr/local/Singular/svn/trunk@4353 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• emacs/singular.el (modified) (3 diffs)

emacs/singular.el

@@ -1 +1 @@
 ;;; singular.el --- Emacs support for Computer Algebra System Singular
 
-;; $Id: singular.el,v 1.59 2000-05-17 13:07:26 obachman Exp $
+;; $Id: singular.el,v 1.60 2000-05-19 11:13:32 wichmann Exp $
 
 ;;; Commentary:
@@ -3936 +3936 @@
 
 Deletes any old processes running in that buffer.
+Removes any empty string in SWITCHES befor passing to Singular.
 Moves point to the end of BUFFER.
 Initializes all important markers and the simple sections.
@@ -3950 +3951 @@
 
           ;; create new process
-          (singular-debug 'interactive (message "Starting new Singular: %s %s" executable switches))
-          (let ((process (comint-exec-1 name buffer executable switches)))
-
+          (singular-debug 'interactive
+                          (message "Starting new Singular: %s %s"
+                                   executable switches))
+          ;; before passing SWITCHES to Singuar we remove any empty strings
+          ;; because otherwise Singular tries to open a file with an empty
+          ;; file name.
+          (let ((process (comint-exec-1 name buffer
+                                        executable (delete "" switches))))
             ;; set process filter and sentinel
             (set-process-filter process 'singular-output-filter)