1 |
;;; ebrowse.el --- Emacs C++ class browser & tags facility |
;;; ebrowse.el --- Emacs C++ class browser & tags facility |
2 |
|
|
3 |
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation Inc. |
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002 |
4 |
|
;; Free Software Foundation Inc. |
5 |
|
|
6 |
;; Author: Gerd Moellmann <gerd@gnu.org> |
;; Author: Gerd Moellmann <gerd@gnu.org> |
7 |
;; Maintainer: FSF |
;; Maintainer: FSF |
1676 |
(setf file (ebrowse-find-source-file file tags-file-name)) |
(setf file (ebrowse-find-source-file file tags-file-name)) |
1677 |
;; If current window is dedicated, use another frame. |
;; If current window is dedicated, use another frame. |
1678 |
(when (window-dedicated-p (selected-window)) |
(when (window-dedicated-p (selected-window)) |
1679 |
(setf where 'other-frame)) |
(setf where 'other-window)) |
1680 |
(cond (view |
(cond (view |
1681 |
(setf ebrowse-temp-position-to-view struc |
(setf ebrowse-temp-position-to-view struc |
1682 |
ebrowse-temp-info-to-view info) |
ebrowse-temp-info-to-view info) |