Changeset 2135c8a in git

Timestamp:

Jul 31, 1998, 10:18:30 AM (25 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', 'df6a8e29030ff93c6ad53051028727af7d339fa0')

Children:

9c935cb36b6c027f643525b80ad9895107ae13e6

Parents:

93d8a1cb14f2b3272db6edf854c5de11ee960447

Message:

	* singular.el (singular-strip-prompts-filter): new function.
	  Added to `comint-output-filter-functions'.

	* singular.el (singular-debug): doc fix

	* singular.el (singular-process): new macro
	  (singular-remove-prompt): doc fix
	  (singular-fold-section): doc fix


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

File:

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

emacs/singular.el

@@ -1 +1 @@
 ;;; singular.el --- Emacs support for Computer Algebra System Singular
 
-;; $Id: singular.el,v 1.14 1998-07-31 08:04:32 wichmann Exp $
+;; $Id: singular.el,v 1.15 1998-07-31 08:18:30 schmidt Exp $
 
 ;;; Commentary:
@@ -58 +58 @@
 ;;{{{ Debugging stuff
 (defvar singular-debug nil
-  "*List of modes to debug or `all' to debug all modes.
-Currently, only the mode `interactive' is supported.")
+  "*List of modes to debug or t to debug all modes.
+Currently, there are the modes `interactive', `interactive-filter',
+`interactive-simple-secs', and `interactive-sections'.")
 
 (defun singular-debug-format (string)
@@ -159 +160 @@
 
 (make-face 'singular-output-face)
+;(set-face-font 'singular-output-face "-adobe-courier-bold-o-*-*-18-*-*-*-*-*-*-*")
 (set-face-background 'singular-output-face "Wheat")
 (defvar singular-output-face 'singular-output-face
@@ -327 +329 @@
 More precisely, removes prompts from first beginning of line before
 BEG to END.
-Removes all but the last prompt of a seuqnce if that sequence ends at
+Removes all but the last prompt of a sequence if that sequence ends at
 END.
 The region between BEG and END should be accessible."
@@ -806 +808 @@
 
 (defun singular-fold-section (section)
-  "Fold SECTION.
-Folds section at point and goes to beginning of section if called
-interactively."
+  "(Un)fold SECTION.
+(Un)folds section at point and goes to beginning of section if called
+interactively.
+Unfolds folded sections and folds unfolded sections."
   (interactive (list (singular-section-at (point))))
   (let ((start (singular-section-start section))
@@ -830 +833 @@
 ;;}}}
 
-;;{{{ Debugging input and output filters
+;;{{{ Input and output filters
+
+;; debugging filters
 (defun singular-debug-input-filter (string)
   "Echo STRING in mini-buffer."
@@ -842 +847 @@
                   (message "Output filter: %s"
                            (singular-debug-format string))))
+
+;; stripping prompts
+(defun singular-remove-prompt-filter (&optional string)
+  "Strip prompts from last simple section."
+  (singular-remove-prompt comint-last-output-start
+                          (singular-process-mark)))
 ;;}}}
 
@@ -1297 +1308 @@
                   (add-hook 'comint-output-filter-functions
                             'singular-debug-output-filter nil t))
+  (add-hook 'comint-output-filter-functions
+            'singular-remove-prompt-filter nil t)
 
   (run-hooks 'singular-interactive-mode-hook))