Mercurial > hg > xemacs-beta

comparison lisp/packages/hyper-apropos.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 9f59509498e1
children 43dd3413c7c7
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
61 (or (fboundp 'pprint) 61 (or (fboundp 'pprint)
62 (progn (autoload 'pp "pp") 62 (progn (autoload 'pp "pp")
63 (fset 'pprint 'pp))) 63 (fset 'pprint 'pp)))
64 ;;(require 'tags "etags") 64 ;;(require 'tags "etags")
65 65
66 (defgroup hyper-apropos nil
67 "Hypertext emacs lisp documentation interface."
68 :prefix "hypropos-"
69 :group 'docs)
70
66 ;;;###autoload 71 ;;;###autoload
67 (defvar hypropos-show-brief-docs t 72 (defcustom hypropos-show-brief-docs t
68 "*If non-nil, `hyper-apropos' will display some documentation in the 73 "*If non-nil, `hyper-apropos' will display some documentation in the
69 \"*Hyper Apropos*\" buffer. Setting this to nil will speed up searches.") 74 \"*Hyper Apropos*\" buffer. Setting this to nil will speed up searches."
70 75 :type 'boolean
71 (defvar hypropos-shrink-window nil 76 :group 'hyper-apropos)
72 "*If non-nil, shrink *Hyper Help* buffer if possible.") 77
73 78 (defcustom hypropos-shrink-window nil
74 (defvar hypropos-prettyprint-long-values t 79 "*If non-nil, shrink *Hyper Help* buffer if possible."
75 "*If non-nil, then try to beautify the printing of very long values.") 80 :type 'boolean
81 :group 'hyper-apropos)
82
83 (defcustom hypropos-prettyprint-long-values t
84 "*If non-nil, then try to beautify the printing of very long values."
85 :type 'boolean
86 :group 'hyper-apropos)
76 87
77 ;; I changed this to true because I think it's more useful this way. --ben 88 ;; I changed this to true because I think it's more useful this way. --ben
78 89
79 (defvar hypropos-programming-apropos t 90 (defcustom hypropos-programming-apropos t
80 "*If non-nil, then `hyper-apropos' takes a bit longer and generates more 91 "*If non-nil, then `hyper-apropos' takes a bit longer and generates more
81 output. If nil, then only functions that are interactive and variables that 92 output. If nil, then only functions that are interactive and variables that
82 are user variables are found by `hyper-apropos'.") 93 are user variables are found by `hyper-apropos'."
94 :type 'boolean
95 :group 'hyper-apropos)
83 96
84 (defvar hypropos-ref-buffer) 97 (defvar hypropos-ref-buffer)
85 (defvar hypropos-prev-wconfig) 98 (defvar hypropos-prev-wconfig)
86 99
87 ;; #### - move this to subr.el 100 ;; #### - move this to subr.el