Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents c53a95d3c46d
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
6 ;; SUMMARY: Sets up Hyperbole for autoloading and use. 6 ;; SUMMARY: Sets up Hyperbole for autoloading and use.
7 ;; USAGE: GNU Emacs Lisp Library 7 ;; USAGE: GNU Emacs Lisp Library
8 ;; KEYWORDS: hypermedia 8 ;; KEYWORDS: hypermedia
9 ;; 9 ;;
10 ;; AUTHOR: Bob Weiner 10 ;; AUTHOR: Bob Weiner
11 ;; ORG: InfoDock Associates 11 ;; ORG: Motorola, Inc., PWDG
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: 15-Mar-97 at 17:09:40 by Bob Weiner 14 ;; LAST-MOD: 3-Nov-95 at 23:14:52 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-1995, Free Software Foundation, Inc.
20 ;; Developed with support from Motorola Inc. 20 ;; Developed with support from Motorola Inc.
21 ;; 21 ;;
22 ;; DESCRIPTION: 22 ;; DESCRIPTION:
23 ;; 23 ;;
24 ;; See the "README" file for installation instructions. 24 ;; See the "README" file for installation instructions.
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))
312 312
313 ;;; Hyperbole user interface entry points that trigger loading of the full 313 ;;; Hyperbole user interface entry points that trigger loading of the full
314 ;;; Hyperbole system. 314 ;;; Hyperbole system.
315 315
316 ;; Action type definitions. 316 ;; Action type definitions.
317 (autoload 'defact "hsite" 317 (autoload 'defact "hsite"
318 "Creates an action TYPE (an unquoted symbol) with PARAMS, described by DOC." 318 "Creates an action TYPE (an unquoted symbol) with PARAMS, described by DOC."
319 nil 'macro) 319 nil 'macro)
320 ;; Implicit button type definitions. 320 ;; Implicit button type definitions.
321 (autoload 'defib "hsite" 321 (autoload 'defib "hsite"
322 "Creates implicit button TYPE (unquoted sym) with PARAMS, described by DOC." 322 "Creates implicit button TYPE (unquoted sym) with PARAMS, described by DOC."
323 nil 'macro) 323 nil 'macro)
324 324
325 (autoload 'ebut:map "hsite" "Map over Hyperbole buffer buttons." nil) 325 (autoload 'ebut:map "hsite" "Map over Hyperbole buffer buttons." nil)
326 (autoload 'hbut:key-src "hsite" "Called by {e} command in rolo match buffer.")
327 (autoload 'hui:ebut-rename "hsite" "Rename a Hyperbole button." t) 326 (autoload 'hui:ebut-rename "hsite" "Rename a Hyperbole button." t)
328 (autoload 'hyperbole "hsite" "Hyperbole info manager menus." t) 327 (autoload 'hyperbole "hsite" "Hyperbole info manager menus." t)
329 328
330 (autoload 'action-key "hsite" 329 (autoload 'action-key "hsite"
331 "Context-sensitive Action Key command." t) 330 "Context-sensitive Action Key command." t)
353 "Executes an external window-based SHELL-CMD string asynchronously." nil) 352 "Executes an external window-based SHELL-CMD string asynchronously." nil)
354 (autoload 'hpath:absolute-to "hsite" 353 (autoload 'hpath:absolute-to "hsite"
355 "Make PATH absolute from optional DEFAULT-DIRS." nil) 354 "Make PATH absolute from optional DEFAULT-DIRS." nil)
356 (autoload 'hpath:find "hsite" 355 (autoload 'hpath:find "hsite"
357 "Edit file FILENAME, possibly using a special command." t) 356 "Edit file FILENAME, possibly using a special command." t)
358 (autoload 'hpath:find-other-frame "hsite"
359 "Edit file FILENAME in other frame, possibly using a special command." t)
360 (autoload 'hpath:find-other-window "hsite" 357 (autoload 'hpath:find-other-window "hsite"
361 "Edit file FILENAME in other window, possibly using a special command." t) 358 "Edit file FILENAME in other window, possibly using a special command." t)
362 359
363 ;;; Hyperbole entry points that trigger loading part of the system. 360 ;;; Hyperbole entry points that trigger loading part of the system.
364 361
365 (autoload 'hypb:functionp "hypb" "Return t iff OBJ is a function." nil) 362 (autoload 'hypb:functionp "hypb" "Return t iff OBJ is a function." nil)
366 (autoload 'hypb:display-file-with-logo "hypb" "Display FILE with IDA logo." nil)
367 363
368 ;;; Hyperbole msg reader autoloads. 364 ;;; Hyperbole msg reader autoloads.
369 (autoload 'Rmail-init "hrmail" "Initializes Hyperbole Rmail support." t) 365 (autoload 'Rmail-init "hrmail" "Initializes Hyperbole Rmail support." t)
370 (autoload 'Mh-init "hmh" "Initializes Hyperbole Mh support." t) 366 (autoload 'Mh-init "hmh" "Initializes Hyperbole Mh support." t)
371 (autoload 'Vm-init "hvm" "Initializes Hyperbole Vm support." t) 367 (autoload 'Vm-init "hvm" "Initializes Hyperbole Vm support." t)
405 (autoload 'kimport:star-outline "kfile" "Import * outline files." t) 401 (autoload 'kimport:star-outline "kfile" "Import * outline files." t)
406 (autoload 'kimport:text "kfile" "Import text or koutline files." t) 402 (autoload 'kimport:text "kfile" "Import text or koutline files." t)
407 ) 403 )
408 404
409 ;;; Hyperbole rolodex main entry points. 405 ;;; Hyperbole rolodex main entry points.
410 (autoload 'rolo-add "wrolo" "Add an entry to rolodex" t) 406 (autoload 'rolo-add "wrolo" "Add an entry to rolodex" t)
411 (autoload 'rolo-display-matches "wrolo" "Redisplay previous rolodex matches" t) 407 (autoload 'rolo-display-matches "wrolo" "Redisplay previous rolodex matches" t)
412 (autoload 'rolo-edit "wrolo" "Edit an existing rolodex entry" t) 408 (autoload 'rolo-edit "wrolo" "Edit an existing rolodex entry" t)
413 (autoload 'rolo-fgrep "wrolo" "Rolodex string search" t) 409 (autoload 'rolo-fgrep "wrolo" "Rolodex string search" t)
414 (autoload 'rolo-grep "wrolo" "Rolodex regexp search" t) 410 (autoload 'rolo-grep "wrolo" "Rolodex regexp search" t)
415 (autoload 'rolo-kill "wrolo" "Delete an existing rolodex entry" t) 411 (autoload 'rolo-kill "wrolo" "Delete an existing rolodex entry" t)
416 (autoload 'rolo-logic "wrolo-logic" "Logical rolodex search filters." t) 412 (autoload 'rolo-logic "wrolo-logic" "Logical rolodex search filters." t)
417 (autoload 'rolo-sort "wrolo" "Sort rolodex entries" t) 413 (autoload 'rolo-sort "wrolo" "Sort rolodex entries" t)
418 (autoload 'rolo-toggle-datestamps "wrolo" "Toggle datestamp insertion." t) 414 (autoload 'rolo-word "wrolo" "Rolodex string search for a word" t)
419 (autoload 'rolo-word "wrolo" "Rolodex string search for a word" t) 415 (autoload 'rolo-yank "wrolo" "Insert a rolodex entry into current buffer" t)
420 (autoload 'rolo-yank "wrolo" "Insert a rolodex entry into current buffer" t)
421 416
422 ;;; Hyperbole Key autoloads. 417 ;;; Hyperbole Key autoloads.
423 (autoload 'Info-handle-in-note "hmous-info" 418 (autoload 'Info-handle-in-note "hmous-info"
424 "Follows Info documentation references.") 419 "Follows Info documentation references.")
425 (autoload 'smart-info "hmous-info" "Follows Info documentation references." t) 420 (autoload 'smart-info "hmous-info" "Follows Info documentation references." t)
429 "Jumps to assembly identifier definitions.") 424 "Jumps to assembly identifier definitions.")
430 (autoload 'smart-c-at-tag-p "hmouse-tag" "Jumps to C identifier definitions.") 425 (autoload 'smart-c-at-tag-p "hmouse-tag" "Jumps to C identifier definitions.")
431 (autoload 'smart-lisp-mode-p "hmouse-tag" 426 (autoload 'smart-lisp-mode-p "hmouse-tag"
432 "Jumps to Lisp identifier definitions.") 427 "Jumps to Lisp identifier definitions.")
433 (autoload 'smart-c++ "hmouse-tag" "Jumps to C++ identifier definitions.") 428 (autoload 'smart-c++ "hmouse-tag" "Jumps to C++ identifier definitions.")
434 (autoload 'smart-fortran-at-tag-p "hmouse-tag" "Jumps to Fortran identifier definitions.") 429 ;; Does nothing unless OO-Browser C++ support has been loaded.
435 (autoload 'smart-java "hmouse-tag" "Jumps to Java identifier definitions.") 430 (autoload 'smart-c++-oobr "hmouse-tag" "Jumps to C++ identifier definitions.")
436 (autoload 'smart-java-at-tag-p "hmouse-tag" "Jumps to Java identifier definitions.")
437 (autoload 'smart-objc "hmouse-tag" "Jumps to Objective-C identifier definitions.") 431 (autoload 'smart-objc "hmouse-tag" "Jumps to Objective-C identifier definitions.")
432 ;; Does nothing unless OO-Browser Objective-C support has been loaded.
433 (autoload 'smart-objc-oobr "hmouse-tag" "Jumps to Objective-C identifier definitions.")
438 (autoload 'smart-tags-file "hmouse-tag" "Determines nearest etags file.") 434 (autoload 'smart-tags-file "hmouse-tag" "Determines nearest etags file.")
439 (autoload 'smart-tags-file-path "hmouse-tag" "Expands a filename from TAGS file.") 435 (autoload 'smart-tags-file-path "hmouse-tag" "Expands a filename from TAGS file.")
440 436
441 ;;; Window configuration save and restore autoloads. 437 ;;; Window configuration save and restore autoloads.
442 (autoload 'wconfig-add-by-name "wconfig" "Save win config under name." t) 438 (autoload 'wconfig-add-by-name "wconfig" "Save win config under name." t)
484 ;; PIEmail 480 ;; PIEmail
485 (var:append 'pm-hook '(Pm-init)) 481 (var:append 'pm-hook '(Pm-init))
486 ;;; 482 ;;;
487 ;;; Hyperbole mail composer support configuration. 483 ;;; Hyperbole mail composer support configuration.
488 ;;; 484 ;;;
489 (var:append 'mail-mode-hook (list (function (lambda () (require 'hsmail))))) 485 (var:append 'mail-mode-hook '((lambda () (require 'hsmail))))
490 (var:append 'mh-letter-mode-hook (list (function (lambda () (require 'hsmail))))) 486 (var:append 'mh-letter-mode-hook '((lambda () (require 'hsmail))))
491 (var:append 'vm-mail-mode-hook (list (function (lambda () (require 'hsmail))))) 487 (var:append 'vm-mail-mode-hook '((lambda () (require 'hsmail))))
492 488
493 ;;; ************************************************************************ 489 ;;; ************************************************************************
494 ;;; Frame function aliases. 490 ;;; Frame function aliases.
495 ;;; ************************************************************************ 491 ;;; ************************************************************************
496 ;; Create all needed `frame-' aliases for all `screen-' functions, e.g. 492 ;; Create all needed 'frame-' aliases for all 'screen-' functions, e.g.
497 ;; screen-width. 493 ;; screen-width.
498 (if (fboundp 'selected-frame) 494 (if (fboundp 'selected-frame)
499 nil 495 nil
500 (fset 'selected-frame 'selected-screen) 496 (fset 'selected-frame 'selected-screen)
501 (mapcar 497 (mapcar
503 (or (fboundp (intern-soft (concat "frame" func-name))) 499 (or (fboundp (intern-soft (concat "frame" func-name)))
504 (fset (intern (concat "frame" func-name)) 500 (fset (intern (concat "frame" func-name))
505 (intern-soft (concat "screen" func-name)))))) 501 (intern-soft (concat "screen" func-name))))))
506 '("-width" "-height"))) 502 '("-width" "-height")))
507 503
508 ;;; ************************************************************************
509 ;;; Register Hyperbole Package
510 ;;; ************************************************************************
511
512 (provide 'hyperbole) 504 (provide 'hyperbole)