A few minor Emacs interface bugs
Jerry James <[email protected]>
| Newsgroups | gmane.lisp.scheme.bigloo |
|---|---|
| Message-ID | <CAHCOHQkzESyCYUMSNnU8nLG5Q68R2KWKYkU6PmMON7tYRjxZUA@mail.gmail.com> |
The attached patch fixes a few minor bugs found in the Emacs interface in the bigloo 4.1a-2 release. The bee-indent.el part fixes a function with a parameter named "indent-state", but references throughout the body of the function to a variable named "state". The bee-tags.el part may be incorrect. The form "(error f)" is used, but there is no variable named "f" in scope. I tried to guess the intent of the author there. The bee-toolbar.el part looks like a simple typo. Finally, the bmacs-xemacs.el part works around XEmacs' aversion to a parameter named "t". It throws an error that says: Attempt to set a constant symbol: t Regards, -- Jerry James http://www.jamezone.org/
bigloo-emacs.patch
(text/x-patch, 2.3 KB)
--- ./bmacs/bee/bee-indent.el.orig 2014-02-21 09:15:23.000000000 -0700
+++ ./bmacs/bee/bee-indent.el 2014-03-04 09:09:26.717613161 -0700
@@ -338,7 +338,7 @@ of the start of the containing expressio
;*---------------------------------------------------------------------*/
;* bee-module-indent-hook ... */
;*---------------------------------------------------------------------*/
-(defun bee-module-indent-hook (indent-state point)
+(defun bee-module-indent-hook (state point)
(if (in-modulep state)
(save-excursion
(if (= (1+ (cadr state)) (cadr (cdr state)))
--- ./bmacs/bee/bee-tags.el.orig 2014-02-21 09:15:23.000000000 -0700
+++ ./bmacs/bee/bee-tags.el 2014-03-04 09:10:07.541627965 -0700
@@ -66,7 +66,7 @@
(defun bee-safe-read (port)
(condition-case err
(read port)
- (error f)))
+ (error port)))
;*---------------------------------------------------------------------*/
;* bee-find-afile-module ... */
--- ./bmacs/bee/bee-toolbar.el.orig 2014-02-21 09:15:22.000000000 -0700
+++ ./bmacs/bee/bee-toolbar.el 2014-03-04 09:10:46.909617380 -0700
@@ -31,7 +31,7 @@
;; either the find or the ibuilder button
,@(if (bee-interface-builder-ready-p)
;; the ibuilder button
- `(,(ude-ibuilder-icon bee-interface-builder-start "Interface builder"))
+ `((,ude-ibuilder-icon bee-interface-builder-start "Interface builder"))
;; the find button
`((,ude-edit-icon bee-tags-find "Find definition")))
--- ./bmacs/bmacs-xemacs.el.orig 2014-02-21 09:15:23.000000000 -0700
+++ ./bmacs/bmacs-xemacs.el 2014-03-04 09:14:27.109576697 -0700
@@ -308,8 +308,8 @@ If PATHS is omitted, `load-path' is used
;*---------------------------------------------------------------------*/
;* set-default-toolbar-visible ... */
;*---------------------------------------------------------------------*/
-(defun set-default-toolbar-visible (t)
- (set-specifier default-toolbar-visible-p t (selected-frame)))
+(defun set-default-toolbar-visible (b)
+ (set-specifier default-toolbar-visible-p b (selected-frame)))
;*---------------------------------------------------------------------*/
;* ude-set-nontext-pointer ... */