[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/emacs ChangeLog guile.el
From: |
Neil Jerram |
Subject: |
guile/guile-core/emacs ChangeLog guile.el |
Date: |
Thu, 21 Jun 2001 12:39:03 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Neil Jerram <address@hidden> 01/06/21 12:39:03
Modified files:
guile-core/emacs: ChangeLog guile.el
Log message:
* Signal an error if unable to find channel.scm file.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/emacs/ChangeLog.diff?cvsroot=OldCVS&tr1=1.8&tr2=1.9&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/emacs/guile.el.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
Patches:
Index: guile/guile-core/emacs/ChangeLog
diff -u guile/guile-core/emacs/ChangeLog:1.8
guile/guile-core/emacs/ChangeLog:1.9
--- guile/guile-core/emacs/ChangeLog:1.8 Sun May 6 14:35:14 2001
+++ guile/guile-core/emacs/ChangeLog Thu Jun 21 12:39:03 2001
@@ -1,3 +1,9 @@
+2001-06-21 Neil Jerram <address@hidden>
+
+ * guile.el (guile-channel-file): Signal an error if unable to find
+ channel.scm.
+ Change "gulie" typos to "guile".
+
2001-05-06 Keisuke Nishida <address@hidden>
* guile.el (guile:eval): Propagate user interrupt.
Index: guile/guile-core/emacs/guile.el
diff -u guile/guile-core/emacs/guile.el:1.5 guile/guile-core/emacs/guile.el:1.6
--- guile/guile-core/emacs/guile.el:1.5 Sun May 6 14:35:14 2001
+++ guile/guile-core/emacs/guile.el Thu Jun 21 12:39:03 2001
@@ -25,7 +25,7 @@
;;; Low level interface
;;;
-(defvar gulie-emacs-file
+(defvar guile-emacs-file
(catch 'return
(mapc (lambda (dir)
(let ((file (expand-file-name "guile-emacs.scm" dir)))
@@ -33,21 +33,22 @@
load-path)
(error "Cannot find guile-emacs.scm")))
-(defvar gulie-channel-file
+(defvar guile-channel-file
(catch 'return
(mapc (lambda (dir)
(let ((file (expand-file-name "channel.scm" dir)))
(if (file-exists-p file) (throw 'return file))))
- load-path)))
+ load-path)
+ (error "Cannot find channel.scm")))
(defvar guile-libs
- (nconc (if gulie-channel-file (list "-l" gulie-channel-file) '())
- (list "-l" gulie-emacs-file)))
+ (nconc (if guile-channel-file (list "-l" guile-channel-file) '())
+ (list "-l" guile-emacs-file)))
;;;###autoload
(defun guile:make-adapter (command channel)
(let* ((buff (generate-new-buffer " *guile object channel*"))
- (libs (if gulie-channel-file (list "-l" gulie-channel-file) nil))
+ (libs (if guile-channel-file (list "-l" guile-channel-file) nil))
(proc (apply 'start-process "guile-oa" buff command "-q" guile-libs)))
(process-kill-without-query proc)
(accept-process-output proc)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/emacs ChangeLog guile.el,
Neil Jerram <=