Mercurial > hg > xemacs-beta

comparison lisp/oobr/eif-ise-er.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: Parses ISE's Eiffel error messages; compiles Eiffel classes. 4 ;; SUMMARY: Parses ISE's Eiffel error messages; compiles Eiffel classes.
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: 7-Dec-89 at 00:17:18 11 ;; ORIG-DATE: 7-Dec-89 at 00:17:18
12 ;; LAST-MOD: 17-Apr-95 at 12:39:18 by Bob Weiner 12 ;; LAST-MOD: 31-Oct-96 at 22:39:09 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1989-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1989-1996 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:
40 ;; messages. 40 ;; messages.
41 ;; 41 ;;
42 ;; 42 ;;
43 ;; To reset the {C-x `} key to parse non-Eiffel error messages, use: 43 ;; To reset the {C-x `} key to parse non-Eiffel error messages, use:
44 ;; 44 ;;
45 ;; {M-x load-lib RTN compile RTN} 45 ;; {M-x load-lib RET compile RET}
46 ;; 46 ;;
47 ;; DESCRIP-END. 47 ;; DESCRIP-END.
48 48
49 (require 'br-lib) 49 (require 'br-lib)
50 (require 'br-eif) 50 (require 'br-eif)
138 (sit-for 2) 138 (sit-for 2)
139 (call-interactively 'br-build-sys-classes-htable) ; Typically pretty fast 139 (call-interactively 'br-build-sys-classes-htable) ; Typically pretty fast
140 (message "Rebuilding Eiffel system class locations table...Done") 140 (message "Rebuilding Eiffel system class locations table...Done")
141 (setq filename (br-class-path class-name)) 141 (setq filename (br-class-path class-name))
142 (if (null filename) 142 (if (null filename)
143 (error (format "'%s' not in lookup table, use {M-x br-build-paths-htable RTN} to update." 143 (error (format "'%s' not in lookup table, use {M-x br-build-paths-htable RET} to update."
144 class-name))))) 144 class-name)))))
145 ;; Locate the erring file and line. 145 ;; Locate the erring file and line.
146 (if (and (equal filename last-filename) 146 (if (and (equal filename last-filename)
147 (= linenum last-linenum)) 147 (= linenum last-linenum))
148 nil 148 nil