Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hsite-ex.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 8619ce7e4c50
children
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 15-Apr-91 at 00:48:49 11 ;; ORIG-DATE: 15-Apr-91 at 00:48:49
12 ;; LAST-MOD: 8-Mar-97 at 22:52:36 by Bob Weiner 12 ;; LAST-MOD: 24-Apr-97 at 22:41:33 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; Available for use and distribution under the same terms as GNU Emacs. 15 ;; Available for use and distribution under the same terms as GNU Emacs.
16 ;; 16 ;;
17 ;; Copyright (C) 1991-1997, Free Software Foundation, Inc. 17 ;; Copyright (C) 1991-1997, Free Software Foundation, Inc.
283 (find-file f)) 283 (find-file f))
284 (find-file-other-window f))))) 284 (find-file-other-window f)))))
285 (list 'one-window (function (lambda (f) 285 (list 'one-window (function (lambda (f)
286 (if (br-in-browser) (br-quit)) 286 (if (br-in-browser) (br-quit))
287 (delete-other-windows) (find-file f)))) 287 (delete-other-windows) (find-file f))))
288 (list 'new-frame 'find-file-new-frame) 288 (list 'new-frame (function (lambda (f)
289 (if (fboundp 'find-file-new-frame)
290 (find-file-new-frame f)
291 (find-file-other-frame f)))))
289 (list 'other-frame 'hpath:find-other-frame) 292 (list 'other-frame 'hpath:find-other-frame)
290 (list 'other-frame-one-window 293 (list 'other-frame-one-window
291 (function (lambda (f) (hpath:find-other-frame f) (delete-other-windows))))) 294 (function (lambda (f) (hpath:find-other-frame f) (delete-other-windows)))))
292 "*Alist of (DISPLAY-WHERE-SYMBOL DISPLAY-FILE-FUNCTION) elements. 295 "*Alist of (DISPLAY-WHERE-SYMBOL DISPLAY-FILE-FUNCTION) elements.
293 This permits fine-grained control of where Hyperbole displays linked to files. 296 This permits fine-grained control of where Hyperbole displays linked to files.