Changeset eedab2 in git


Ignore:
Timestamp:
Nov 5, 1999, 3:09:16 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • emacs/singular.el

    r15d7992 reedab2  
    11;;; singular.el --- Emacs support for Computer Algebra System Singular
    22
    3 ;; $Id: singular.el,v 1.47 1999-10-22 11:43:57 obachman Exp $
     3;; $Id: singular.el,v 1.48 1999-11-05 14:09:16 obachman Exp $
    44
    55;;; Commentary:
     
    39513951         (buffer (get-buffer buffer-name)))
    39523952   
     3953    ;; make sure directory contains a "/" at the end
     3954    (setq directory
     3955      (concat directory
     3956              ;; we check for trailing slash and backslash
     3957              ;; but unconditionally insert a slash.
     3958              ;; Hopefully that works on NT, too.
     3959              (if (memq (aref directory
     3960                              (1- (length directory)))
     3961                        '(?/ ?\\))
     3962                  "" "/")))
     3963   
    39533964    (if (not buffer)
    39543965        (progn
Note: See TracChangeset for help on using the changeset viewer.