Changeset ebcfd1f in git

Timestamp:

Dec 3, 1999, 12:10:19 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

caa8e6acf436c3f1afc45aa776a9230ee6926ea0

Parents:

9f3e9bef10a5b0f7fd4ed74bc83407329b62b4a6

Message:

* added action restart on C-c C-c


git-svn-id: file:///usr/local/Singular/svn/trunk@3953 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.49 1999-12-03 08:08:50 wichmann Exp $
+;; $Id: singular.el,v 1.50 1999-12-03 11:10:19 obachman Exp $
 
 ;;; Commentary:
@@ -3880 +3880 @@
      (while (not answer) 
        (setq answer (read-from-minibuffer
-                   "(a)bort current command, (q)uit Singular or (c)ontinue? "))
+                   "(a)bort current command, (q)uit, (r)estart Singular or (c)ontinue? "))
        (setq answer
              (cond ((equal answer "a") 'abort)
                    ((equal answer "c") 'continue)
+                   ((equal answer "r") 'restart)
                    ((equal answer "q") 'quit)
                    ((equal answer "") 'continue) ; default: continue
@@ -3890 +3891 @@
    (cond
     ((eq mode 'quit) (singular-kill-singular))
+    ((eq mode 'restart) (singular-restart))
     ((eq mode 'abort) (interrupt-process (singular-process)))))