Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hypb.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 4be1180a9e89
children 929b76928fce
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 6-Oct-91 at 03:42:38 11 ;; ORIG-DATE: 6-Oct-91 at 03:42:38
12 ;; LAST-MOD: 19-Feb-97 at 12:18:08 by Bob Weiner 12 ;; LAST-MOD: 22-Feb-97 at 14:30:10 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-1995, 1997 Free Software Foundation, Inc. 17 ;; Copyright (C) 1991-1995, 1997 Free Software Foundation, Inc.
564 (set-window-start (selected-window) 1) 564 (set-window-start (selected-window) 1)
565 (set-buffer-modified-p nil))) 565 (set-buffer-modified-p nil)))
566 566
567 (defvar hypb:ida-logo-keymap 567 (defvar hypb:ida-logo-keymap
568 (let ((map (make-sparse-keymap))) 568 (let ((map (make-sparse-keymap)))
569 (define-key map 'button1 'hypb:ida-home-page) 569 (cond (hyperb:emacs19-p
570 (define-key map 'button2 'hypb:ida-home-page) 570 (define-key map [button-1] 'hypb:ida-home-page)
571 (define-key map '(return) 'hypb:ida-home-page) 571 (define-key map [button-2] 'hypb:ida-home-page)
572 (define-key map "\C-m" 'hypb:ida-home-page))
573 (hyperb:lemacs-p
574 (define-key map 'button1 'hypb:ida-home-page)
575 (define-key map 'button2 'hypb:ida-home-page)
576 (define-key map '(return) 'hypb:ida-home-page)))
572 map) 577 map)
573 "Keymap used when on the InfoDock Associates logo glyph.") 578 "Keymap used when on the InfoDock Associates logo glyph.")
574 579
575 (defun hypb:ida-home-page () 580 (defun hypb:ida-home-page ()
576 "Visit InfoDock Associates home web page." 581 "Visit InfoDock Associates home web page."