Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-start.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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: InfoDock Associates 9 ;; ORG: Motorola Inc.
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: 20-Feb-97 at 06:59:33 by Bob Weiner 12 ;; LAST-MOD: 25-Oct-95 at 01:38:41 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc. 14 ;; Copyright (C) 1992-19945 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