Changeset e74240 in git


Ignore:
Timestamp:
Oct 22, 1999, 1:43:57 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
ce3f53e5e9c4815830dde0ecd7da7be3f7505eb2
Parents:
4779934d50b14b0a5161605c33419f8b20bf441d
Message:
* singular.el: call with --exec=... instead of --emacs


git-svn-id: file:///usr/local/Singular/svn/trunk@3768 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
emacs
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • emacs/.emacs-singular

    r477993 re74240  
    11;;; Emacs edit mode for this file is  -*- Emacs-Lisp -*-
    2 ;;; $Id: .emacs-singular,v 1.4 1999-09-08 18:21:58 wichmann Exp $
     2;;; $Id: .emacs-singular,v 1.5 1999-10-22 11:43:57 obachman Exp $
    33
    44;;;
     
    125125;; add global menus for Singular, Emacs version
    126126(unless (fboundp 'add-submenu)
    127   (setq singular-start-map (make-sparse-keymap))
    128   (define-key singular-start-map [menu-bar singular]
    129     (cons "Singular" (make-sparse-keymap "Singular")))
    130   (define-key singular-start-map [menu-bar singular restart]
     127  (setq singular-start-map (make-sparse-keymap "Singular"))
     128  (define-key singular-start-map [singular-other]
    131129    '("Start..." . singular-other))
    132   (define-key singular-start-map [menu-bar singular start-default]
     130  (define-key singular-start-map [singular-default]
    133131    '("Start default" . singular))
    134   (setq menu-bar-final-item (append '(singular) menu-bar-final-items))
    135   (use-local-map singular-start-map))
     132  (setq menu-bar-final-items (append '(singular) menu-bar-final-items))
     133  (define-key global-map [menu-bar singular]
     134    (cons "Singular" singular-start-map)))
    136135
    137136;; add global menus for Singular, XEmacs version
  • emacs/singular.el

    r477993 re74240  
    11;;; singular.el --- Emacs support for Computer Algebra System Singular
    22
    3 ;; $Id: singular.el,v 1.46 1999-09-20 19:37:11 obachman Exp $
     3;; $Id: singular.el,v 1.47 1999-10-22 11:43:57 obachman Exp $
    44
    55;;; Commentary:
     
    10181018
    10191019(defvar singular-load-library-history nil
    1020   "History list for loading of singular libraries.
     1020  "History list for loading of Singular libraries.
    10211021Is used by `singular-load-library'.")
    10221022
     
    10241024  "Read a Singular library (via 'LIB \"FILE\";').
    10251025If called interactively asks for the name of a standard Singular
    1026 library. If interactively called with a prefix argument asks for a file
     1026library. If called interactively with a prefix argument asks for a file
    10271027name of a Singular library."
    10281028  (interactive "P")
     
    25082508  "Call `singular-help' if `singular-help-topic' is non-nil."
    25092509  (when singular-help-topic
    2510     (save-excursion (singular-help singular-help-topic))
     2510    (save-excursion
     2511      (singular-help singular-help-topic))
    25112512    (setq singular-help-topic nil)))
    25122513
     
    27912792(defun singular-completion-do (pattern beg end completion-alist)
    27922793  "Try completion on string PATTERN using alist COMPLETION-ALIST.
    2793 Insert completed version of PATTERN as new text between BEG and END.
     2794Inserts completed version of PATTERN as new text between BEG and END.
    27942795Assumes the COMPLETION-ALIST is not nil."
    27952796  (let ((completion (try-completion pattern completion-alist)))
     
    28122813(defun singular-dynamic-complete ()
    28132814  "Dynamic complete word before point.
    2814 Perform file name completion if point is inside a string.
    2815 Perform completion of Singular help topics if point is at the end of a
     2815Performs file name completion if point is inside a string.
     2816Performs completion of Singular help topics if point is at the end of a
    28162817help command (\"help\" or \"?\").
    2817 Otherwise perform completion of Singular commands."
     2818Otherwise performs completion of Singular commands."
    28182819  (interactive)
    28192820  ;; Check if we are inside a string. The search is done back to the
Note: See TracChangeset for help on using the changeset viewer.