Changeset eedab2 in git

Timestamp:

Nov 5, 1999, 3:09:16 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

21fd9365b492e05aeac1b5f7719cd9a9eca63b0c

Parents:

15d7992510fda0efdd578dd2148a6f8befb38933

Message:

* mad sure that current directory has "/" at the end


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

File:

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

emacs/singular.el

@@ -1 +1 @@
 ;;; singular.el --- Emacs support for Computer Algebra System Singular
 
-;; $Id: singular.el,v 1.47 1999-10-22 11:43:57 obachman Exp $
+;; $Id: singular.el,v 1.48 1999-11-05 14:09:16 obachman Exp $
 
 ;;; Commentary:
@@ -3951 +3951 @@
          (buffer (get-buffer buffer-name)))
     
+    ;; make sure directory contains a "/" at the end
+    (setq directory 
+      (concat directory
+              ;; we check for trailing slash and backslash
+              ;; but unconditionally insert a slash.
+              ;; Hopefully that works on NT, too.
+              (if (memq (aref directory
+                              (1- (length directory)))
+                        '(?/ ?\\))
+                  "" "/")))
+    
     (if (not buffer)
         (progn