;;; This file is part of ILISP.
;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
;;; 1993, 1994 Ivan Vasquez
;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
-;;; 1996 Marco Antoniotti and Rick Campbell
+;;; 1996- Marco Antoniotti and Rick Campbell
;;; Other authors' names for which this Copyright notice also holds
;;; may appear later in this file.
-;;; Send mail to 'firstname.lastname@example.org' to be included in the
-;;; ILISP mailing list. 'email@example.com' is the general ILISP
+;;; Send mail to 'firstname.lastname@example.org' to be included in the
+;;; ILISP mailing list. 'email@example.com' is the general ILISP
;;; mailing list were bugs and improvements are discussed.
;;; ILISP is freely redistributable under the terms found in the file
(defun lisp-slashify (string)
- "Put string in the *ilisp-send* buffer, put backslashes before
-quotes and backslashes and return the resulting string."
+ "Put string in the *ilisp-send* buffer, backslashifying troublesome chars.
+I.e. put backslashes before quotes and backslashes and return the resulting
(defun lisp-prefix-p (s1 s2)
- "Returns t if S1 is a prefix of S2 considering all non alphanumerics
+ "Returns t if S1 is a prefix of S2.
+It considers all non alphanumerics as word delimiters."
(let ((len1 (length s1)))
(and (<= len1 (length s2))
(defun ilisp-directory (file &optional dirs)
- "Return the directory of DIRS that FILE is found in. By default
-load-path is used for the directories."
+ "Return the directory of DIRS that FILE is found in.
+By default 'load-path' is used for the directories."
(let* ((dirs (or dirs (cons "" load-path)))
(while (and dir (not (file-exists-p (expand-file-name file dir))))
;;; ilisp-update-status --
-;;; Note: changed in order to propagate the status change in the
-;;; underlying process to the menu.
+;;; 19970412 Marco Antoniotti
+;;; Changed in order to propagate the status change in the
+;;; underlying process to the menu.
+;;; 19990806 Martin Atzmueller
+;;; Added test for FEATUREP ILISP-EASY-MENU.
(defun ilisp-update-status (status)
- "Update process STATUS of the whole I
+ "Update process STATUS of the whole I system.
It updates the STATUS of the current buffer and let all lisp mode
buffers know as well. Also, do some 'exterior' things like make sure
that the menubar is in a consistent state."
(setq ilisp-status (if lisp-show-status (format " :%s" status)))
- (if (not (member +ilisp-emacs-version-id+ '(xemacs lucid-19 lucid-19-new)))
- (ilisp-update-menu status))
+ (when (and (not (member +ilisp-emacs-version-id+
+ '(xemacs lucid-19 lucid-19-new)))
+ (not (featurep 'ilisp-easy-menu)))
+ (ilisp-update-menu status))
+;;; end of file -- ilisp-utl.el --