Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-start.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children cca96a509cfe
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
4 ;; SUMMARY: Select language and invoke OO-Browser. 4 ;; SUMMARY: Select language and invoke OO-Browser.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: oop, tools 6 ;; KEYWORDS: oop, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 5-Sep-92 at 23:31:03 11 ;; ORIG-DATE: 5-Sep-92 at 23:31:03
12 ;; LAST-MOD: 25-Oct-95 at 01:38:41 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 06:59:33 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1992-19945 Free Software Foundation, Inc. 14 ;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
42 "(br-start.el): OO-Browser failed to set br-directory. Try setting it manually.")) 42 "(br-start.el): OO-Browser failed to set br-directory. Try setting it manually."))
43 43
44 (if (fboundp 'member) 44 (if (fboundp 'member)
45 (fset 'br-member 'member) 45 (fset 'br-member 'member)
46 (defun br-member (elt list) 46 (defun br-member (elt list)
47 "Return non-nil if ELT is an element of LIST. Comparison done with 'equal'. 47 "Return non-nil if ELT is an element of LIST. Comparison done with `equal'.
48 The value is actually the tail of LIST whose car is ELT." 48 The value is actually the tail of LIST whose car is ELT."
49 (while (and list (not (equal (car list) elt))) 49 (while (and list (not (equal (car list) elt)))
50 (setq list (cdr list))) 50 (setq list (cdr list)))
51 list)) 51 list))
52 52