Mercurial > hg > xemacs-beta

comparison lisp/oobr/c++-browse.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
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
4 ;; SUMMARY: C++ source code browser. 4 ;; SUMMARY: C++ source code browser.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: c, oop, tools 6 ;; KEYWORDS: c, 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: 12-Dec-89 11 ;; ORIG-DATE: 12-Dec-89
12 ;; LAST-MOD: 20-Sep-95 at 14:18:40 by Bob Weiner 12 ;; LAST-MOD: 21-Feb-97 at 16:14:24 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1989-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1989-1995, 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:
20 ;; 20 ;;
21 ;; Use 'c++-browse' to invoke the C++ OO-Browser. Prefix arg prompts for 21 ;; Use `c++-browse' to invoke the C++ OO-Browser. Prefix arg prompts for
22 ;; name of Environment file. 22 ;; name of Environment file.
23 ;; 23 ;;
24 ;; DESCRIP-END. 24 ;; DESCRIP-END.
25 25
26 ;; ************************************************************************ 26 ;; ************************************************************************
83 83
84 ;; Don't filter Environment classes when listed. 84 ;; Don't filter Environment classes when listed.
85 (fset 'c++-class-list-filter 'identity) 85 (fset 'c++-class-list-filter 'identity)
86 86
87 (defun c++-mode-setup () 87 (defun c++-mode-setup ()
88 "Load best available C++ major mode and set 'br-lang-mode' to the function that invokes it." 88 "Load best available C++ major mode and set `br-lang-mode' to the function that invokes it."
89 (fset 'br-lang-mode 89 (fset 'br-lang-mode
90 (cond ((or (featurep 'cc-mode) (featurep 'c++-mode)) 90 (cond ((or (featurep 'cc-mode) (featurep 'c++-mode))
91 'c++-mode) 91 'c++-mode)
92 ((load "cc-mode" 'missing-ok 'nomessage) 92 ((load "cc-mode" 'missing-ok 'nomessage)
93 (provide 'c++-mode)) 93 (provide 'c++-mode))