Changeset 26ceba in git for emacs/.emacs-singular

Timestamp:

Aug 31, 1999, 9:16:27 PM (25 years ago)

Author:

Tim Wichmann <wichmann@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

9ad3531983eb9d194f4cca3befe7a3e381f64992

Parents:

48d74cb4e67985d6d68d25eb25c32ee983b6e927

Message:

	* .emacs-singular (fboundp): added template for Singular button
	  in toolbar


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

File:

• emacs/.emacs-singular (modified) (5 diffs)

emacs/.emacs-singular

@@ -1 +1 @@
 ;;; Emacs edit mode for this file is  -*- Emacs-Lisp -*-
-;;; $Id: .emacs-singular,v 1.2 1999-08-31 18:53:53 wichmann Exp $
+;;; $Id: .emacs-singular,v 1.3 1999-08-31 19:16:27 wichmann Exp $
 
 ;;;
@@ -50 +50 @@
 ;;; ;; add global menus for Singular
 ;;; <... choose your version for either Emacs or XEmacs, see below ...>
+;;;
+;;; ;; add Singular toolbar for XEmacs
+;;; <... insert the code below if you are running XEmacs ...>
 ;;;
 ;;; ;; add Singular Emacs home directory to `load-path'
@@ -109 +112 @@
 )
 
+;; update singular-emacs-home-directory
+(setq singular-emacs-home-directory 
+      (concat singular-emacs-home-directory
+              ;; we check for trailing slash and backslash
+              ;; but unconditionally insert a slash.
+              ;; Hopefully that works on NT, too.
+              (if (memq (aref singular-emacs-home-directory
+                              (1- (length singular-emacs-home-directory)))
+                        '(?/ ?\\))
+                  "" "/")))
+
 ;; add global menus for Singular, Emacs version
 (unless (fboundp 'add-submenu)
@@ -128 +142 @@
                    ["Start..." singular-other t])))
 
+;; add Singular button to toolbar for XEmacs
+(if (fboundp 'toolbar-add-item)
+    (toolbar-add-item 
+     (vector 
+      (toolbar-make-button-list (concat singular-emacs-home-directory 
+                                        "singular.xpm"))
+      'singular t "Start Singular")
+     (length (specifier-instance default-toolbar))))
+
 ;;;
 ;;; - load singular.el.
@@ -140 +163 @@
 
 ;; load singular.el from `singular-emacs-home-directory'
-(load-file (concat singular-emacs-home-directory
-                   ;; we check for trailing slash and backslash
-                   ;; but unconditionally insert a slash.
-                   ;; Hopefully that works on NT, too.
-                   (if (memq (aref singular-emacs-home-directory
-                                   (1- (length singular-emacs-home-directory)))
-                             '(?/ ?\\))
-                       "" "/")
-                   "singular.el"))
+(load-file (concat singular-emacs-home-directory "singular.el"))