Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hyperbole.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children 8619ce7e4c50
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
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: Motorola, Inc., PWDG 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: 3-Nov-95 at 23:14:52 by Bob Weiner 14 ;; LAST-MOD: 19-Feb-97 at 10:57:44 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-1995, Free Software Foundation, Inc. 19 ;; Copyright (C) 1992-1996, 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.
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.")
326 (autoload 'hui:ebut-rename "hsite" "Rename a Hyperbole button." t) 327 (autoload 'hui:ebut-rename "hsite" "Rename a Hyperbole button." t)
327 (autoload 'hyperbole "hsite" "Hyperbole info manager menus." t) 328 (autoload 'hyperbole "hsite" "Hyperbole info manager menus." t)
328 329
329 (autoload 'action-key "hsite" 330 (autoload 'action-key "hsite"
330 "Context-sensitive Action Key command." t) 331 "Context-sensitive Action Key command." t)
352 "Executes an external window-based SHELL-CMD string asynchronously." nil) 353 "Executes an external window-based SHELL-CMD string asynchronously." nil)
353 (autoload 'hpath:absolute-to "hsite" 354 (autoload 'hpath:absolute-to "hsite"
354 "Make PATH absolute from optional DEFAULT-DIRS." nil) 355 "Make PATH absolute from optional DEFAULT-DIRS." nil)
355 (autoload 'hpath:find "hsite" 356 (autoload 'hpath:find "hsite"
356 "Edit file FILENAME, possibly using a special command." t) 357 "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)
357 (autoload 'hpath:find-other-window "hsite" 360 (autoload 'hpath:find-other-window "hsite"
358 "Edit file FILENAME in other window, possibly using a special command." t) 361 "Edit file FILENAME in other window, possibly using a special command." t)
359 362
360 ;;; Hyperbole entry points that trigger loading part of the system. 363 ;;; Hyperbole entry points that trigger loading part of the system.
361 364
362 (autoload 'hypb:functionp "hypb" "Return t iff OBJ is a function." nil) 365 (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)
363 367
364 ;;; Hyperbole msg reader autoloads. 368 ;;; Hyperbole msg reader autoloads.
365 (autoload 'Rmail-init "hrmail" "Initializes Hyperbole Rmail support." t) 369 (autoload 'Rmail-init "hrmail" "Initializes Hyperbole Rmail support." t)
366 (autoload 'Mh-init "hmh" "Initializes Hyperbole Mh support." t) 370 (autoload 'Mh-init "hmh" "Initializes Hyperbole Mh support." t)
367 (autoload 'Vm-init "hvm" "Initializes Hyperbole Vm support." t) 371 (autoload 'Vm-init "hvm" "Initializes Hyperbole Vm support." t)
424 "Jumps to assembly identifier definitions.") 428 "Jumps to assembly identifier definitions.")
425 (autoload 'smart-c-at-tag-p "hmouse-tag" "Jumps to C identifier definitions.") 429 (autoload 'smart-c-at-tag-p "hmouse-tag" "Jumps to C identifier definitions.")
426 (autoload 'smart-lisp-mode-p "hmouse-tag" 430 (autoload 'smart-lisp-mode-p "hmouse-tag"
427 "Jumps to Lisp identifier definitions.") 431 "Jumps to Lisp identifier definitions.")
428 (autoload 'smart-c++ "hmouse-tag" "Jumps to C++ identifier definitions.") 432 (autoload 'smart-c++ "hmouse-tag" "Jumps to C++ identifier definitions.")
429 ;; Does nothing unless OO-Browser C++ support has been loaded. 433 (autoload 'smart-fortran-at-tag-p "hmouse-tag" "Jumps to Fortran identifier definitions.")
430 (autoload 'smart-c++-oobr "hmouse-tag" "Jumps to C++ identifier definitions.") 434 (autoload 'smart-java "hmouse-tag" "Jumps to Java identifier definitions.")
435 (autoload 'smart-java-at-tag-p "hmouse-tag" "Jumps to Java identifier definitions.")
431 (autoload 'smart-objc "hmouse-tag" "Jumps to Objective-C identifier definitions.") 436 (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.")
434 (autoload 'smart-tags-file "hmouse-tag" "Determines nearest etags file.") 437 (autoload 'smart-tags-file "hmouse-tag" "Determines nearest etags file.")
435 (autoload 'smart-tags-file-path "hmouse-tag" "Expands a filename from TAGS file.") 438 (autoload 'smart-tags-file-path "hmouse-tag" "Expands a filename from TAGS file.")
436 439
437 ;;; Window configuration save and restore autoloads. 440 ;;; Window configuration save and restore autoloads.
438 (autoload 'wconfig-add-by-name "wconfig" "Save win config under name." t) 441 (autoload 'wconfig-add-by-name "wconfig" "Save win config under name." t)
499 (or (fboundp (intern-soft (concat "frame" func-name))) 502 (or (fboundp (intern-soft (concat "frame" func-name)))
500 (fset (intern (concat "frame" func-name)) 503 (fset (intern (concat "frame" func-name))
501 (intern-soft (concat "screen" func-name)))))) 504 (intern-soft (concat "screen" func-name))))))
502 '("-width" "-height"))) 505 '("-width" "-height")))
503 506
507 ;;; ************************************************************************
508 ;;; Register Hyperbole Package
509 ;;; ************************************************************************
510
504 (provide 'hyperbole) 511 (provide 'hyperbole)