comparison lisp/hyperbole/hmouse-drv.el @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 441bb1e64a06
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: hypermedia, mouse 6 ;; KEYWORDS: hypermedia, mouse
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORIG-DATE: 04-Feb-90 9 ;; ORIG-DATE: 04-Feb-90
10 ;; LAST-MOD: 22-Feb-97 at 14:16:55 by Bob Weiner 10 ;; LAST-MOD: 1-Nov-95 at 21:44:52 by Bob Weiner
11 ;; 11 ;;
12 ;; This file is part of Hyperbole. 12 ;; This file is part of Hyperbole.
13 ;; Available for use and distribution under the same terms as GNU Emacs. 13 ;; Available for use and distribution under the same terms as GNU Emacs.
14 ;; 14 ;;
15 ;; Copyright (C) 1989-1995, Free Software Foundation, Inc. 15 ;; Copyright (C) 1989-1995, Free Software Foundation, Inc.
267 (set-window-configuration *hkey-wconfig*) 267 (set-window-configuration *hkey-wconfig*)
268 (switch-to-buffer (other-buffer))) 268 (switch-to-buffer (other-buffer)))
269 (bury-buffer buf) 269 (bury-buffer buf)
270 (setq *hkey-wconfig* nil))) 270 (setq *hkey-wconfig* nil)))
271 271
272 ;;;###autoload
273 (defun hkey-help-show (buffer &optional current-window) 272 (defun hkey-help-show (buffer &optional current-window)
274 "Saves prior frame configuration if BUFFER displays help. Displays BUFFER. 273 "Saves prior frame configuration if BUFFER displays help. Displays BUFFER.
275 274
276 Optional second arg CURRENT-WINDOW non-nil forces display of buffer within 275 Optional second arg CURRENT-WINDOW non-nil forces display of buffer within
277 the current window. By default, it is displayed in another window." 276 the current window. By default, it is displayed in another window."