Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hyperbole.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
9 ;; 9 ;;
10 ;; AUTHOR: Bob Weiner 10 ;; AUTHOR: Bob Weiner
11 ;; ORG: InfoDock Associates 11 ;; ORG: InfoDock Associates
12 ;; 12 ;;
13 ;; ORIG-DATE: 6-Oct-92 at 11:52:51 13 ;; ORIG-DATE: 6-Oct-92 at 11:52:51
14 ;; LAST-MOD: 19-Feb-97 at 10:57:44 by Bob Weiner 14 ;; LAST-MOD: 15-Mar-97 at 17:09:40 by Bob Weiner
15 ;; 15 ;;
16 ;; This file is part of Hyperbole. 16 ;; This file is part of Hyperbole.
17 ;; Available for use and distribution under the same terms as GNU Emacs. 17 ;; Available for use and distribution under the same terms as GNU Emacs.
18 ;; 18 ;;
19 ;; Copyright (C) 1992-1996, Free Software Foundation, Inc. 19 ;; Copyright (C) 1992-1996, Free Software Foundation, Inc.
116 ;; (or (global-key-binding "\C-x4\177") 116 ;; (or (global-key-binding "\C-x4\177")
117 ;; (global-set-key "\C-x4\177" 'wconfig-delete-pop)) 117 ;; (global-set-key "\C-x4\177" 'wconfig-delete-pop))
118 118
119 ;;; Provides a site standard way to easily switch between the Hyperbole mouse 119 ;;; Provides a site standard way to easily switch between the Hyperbole mouse
120 ;;; bindings and a set of personal mouse bindings. You may instead show 120 ;;; bindings and a set of personal mouse bindings. You may instead show
121 ;;; users how to bind this to a key via 'hyperb:init-hook' (see 121 ;;; users how to bind this to a key via `hyperb:init-hook' (see
122 ;;; Hyperbole Manual). 122 ;;; Hyperbole Manual).
123 ;;; 123 ;;;
124 (or (global-key-binding "\C-ct") 124 (or (global-key-binding "\C-ct")
125 (where-is-internal 'hmouse-toggle-bindings) 125 (where-is-internal 'hmouse-toggle-bindings)
126 (global-set-key "\C-ct" 'hmouse-toggle-bindings)) 126 (global-set-key "\C-ct" 'hmouse-toggle-bindings))
128 (defun hkey-either (arg) 128 (defun hkey-either (arg)
129 "Executes `action-key' or with non-nil ARG executes `assist-key'." 129 "Executes `action-key' or with non-nil ARG executes `assist-key'."
130 (interactive "P") 130 (interactive "P")
131 (if arg (assist-key) (action-key))) 131 (if arg (assist-key) (action-key)))
132 132
133 ;;; A value of t for 'hkey-init' below will cause the Hyperbole 133 ;;; A value of t for `hkey-init' below will cause the Hyperbole
134 ;;; context-sensitive keys to be bound to keyboard keys, in addition to any 134 ;;; context-sensitive keys to be bound to keyboard keys, in addition to any
135 ;;; mouse key bindings. Comment it out or set it to nil if you don't want 135 ;;; mouse key bindings. Comment it out or set it to nil if you don't want
136 ;;; these bindings. Or change the bindings in the succeeding lines. 136 ;;; these bindings. Or change the bindings in the succeeding lines.
137 ;;; 137 ;;;
138 (or (boundp 'hkey-init) (setq hkey-init t)) 138 (or (boundp 'hkey-init) (setq hkey-init t))
405 (autoload 'kimport:star-outline "kfile" "Import * outline files." t) 405 (autoload 'kimport:star-outline "kfile" "Import * outline files." t)
406 (autoload 'kimport:text "kfile" "Import text or koutline files." t) 406 (autoload 'kimport:text "kfile" "Import text or koutline files." t)
407 ) 407 )
408 408
409 ;;; Hyperbole rolodex main entry points. 409 ;;; Hyperbole rolodex main entry points.
410 (autoload 'rolo-add "wrolo" "Add an entry to rolodex" t) 410 (autoload 'rolo-add "wrolo" "Add an entry to rolodex" t)
411 (autoload 'rolo-display-matches "wrolo" "Redisplay previous rolodex matches" t) 411 (autoload 'rolo-display-matches "wrolo" "Redisplay previous rolodex matches" t)
412 (autoload 'rolo-edit "wrolo" "Edit an existing rolodex entry" t) 412 (autoload 'rolo-edit "wrolo" "Edit an existing rolodex entry" t)
413 (autoload 'rolo-fgrep "wrolo" "Rolodex string search" t) 413 (autoload 'rolo-fgrep "wrolo" "Rolodex string search" t)
414 (autoload 'rolo-grep "wrolo" "Rolodex regexp search" t) 414 (autoload 'rolo-grep "wrolo" "Rolodex regexp search" t)
415 (autoload 'rolo-kill "wrolo" "Delete an existing rolodex entry" t) 415 (autoload 'rolo-kill "wrolo" "Delete an existing rolodex entry" t)
416 (autoload 'rolo-logic "wrolo-logic" "Logical rolodex search filters." t) 416 (autoload 'rolo-logic "wrolo-logic" "Logical rolodex search filters." t)
417 (autoload 'rolo-sort "wrolo" "Sort rolodex entries" t) 417 (autoload 'rolo-sort "wrolo" "Sort rolodex entries" t)
418 (autoload 'rolo-word "wrolo" "Rolodex string search for a word" t) 418 (autoload 'rolo-toggle-datestamps "wrolo" "Toggle datestamp insertion." t)
419 (autoload 'rolo-yank "wrolo" "Insert a rolodex entry into current buffer" t) 419 (autoload 'rolo-word "wrolo" "Rolodex string search for a word" t)
420 (autoload 'rolo-yank "wrolo" "Insert a rolodex entry into current buffer" t)
420 421
421 ;;; Hyperbole Key autoloads. 422 ;;; Hyperbole Key autoloads.
422 (autoload 'Info-handle-in-note "hmous-info" 423 (autoload 'Info-handle-in-note "hmous-info"
423 "Follows Info documentation references.") 424 "Follows Info documentation references.")
424 (autoload 'smart-info "hmous-info" "Follows Info documentation references." t) 425 (autoload 'smart-info "hmous-info" "Follows Info documentation references." t)
483 ;; PIEmail 484 ;; PIEmail
484 (var:append 'pm-hook '(Pm-init)) 485 (var:append 'pm-hook '(Pm-init))
485 ;;; 486 ;;;
486 ;;; Hyperbole mail composer support configuration. 487 ;;; Hyperbole mail composer support configuration.
487 ;;; 488 ;;;
488 (var:append 'mail-mode-hook '((lambda () (require 'hsmail)))) 489 (var:append 'mail-mode-hook (list (function (lambda () (require 'hsmail)))))
489 (var:append 'mh-letter-mode-hook '((lambda () (require 'hsmail)))) 490 (var:append 'mh-letter-mode-hook (list (function (lambda () (require 'hsmail)))))
490 (var:append 'vm-mail-mode-hook '((lambda () (require 'hsmail)))) 491 (var:append 'vm-mail-mode-hook (list (function (lambda () (require 'hsmail)))))
491 492
492 ;;; ************************************************************************ 493 ;;; ************************************************************************
493 ;;; Frame function aliases. 494 ;;; Frame function aliases.
494 ;;; ************************************************************************ 495 ;;; ************************************************************************
495 ;; Create all needed 'frame-' aliases for all 'screen-' functions, e.g. 496 ;; Create all needed `frame-' aliases for all `screen-' functions, e.g.
496 ;; screen-width. 497 ;; screen-width.
497 (if (fboundp 'selected-frame) 498 (if (fboundp 'selected-frame)
498 nil 499 nil
499 (fset 'selected-frame 'selected-screen) 500 (fset 'selected-frame 'selected-screen)
500 (mapcar 501 (mapcar