Mercurial > hg > xemacs-beta
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." |