comparison lisp/hyper-apropos.el @ 776:79940b592197

[xemacs-hg @ 2002-03-15 07:43:14 by ben] .cvsignore: ignore .tmp files that are getting auto-created by VC. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). alloc.c, emacs.c, lisp.h: add new -no-packages. make sure list of args for sorting is actually correct. clean up arg parsing code. xemacs.mak: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs).
author ben
date Fri, 15 Mar 2002 07:43:43 +0000
parents 29e4e3036b4e
children a97af4f94589
comparison
equal deleted inserted replaced
775:7d972c3de90a 776:79940b592197
1230 (let ((fn (hyper-apropos-this-symbol))) 1230 (let ((fn (hyper-apropos-this-symbol)))
1231 (or (fboundp fn) 1231 (or (fboundp fn)
1232 (setq fn nil)) 1232 (setq fn nil))
1233 (list fn))) 1233 (list fn)))
1234 (if fn 1234 (if fn
1235 (find-function-other-window fn))) 1235 (if-fboundp 'find-function-other-window
1236 (find-function-other-window fn)
1237 (error 'unimplemented "`find-func' package unavailable"))))
1236 1238
1237 (defun hyper-apropos-find-variable (fn) 1239 (defun hyper-apropos-find-variable (fn)
1238 "Find the variable for the symbol on the current line in other 1240 "Find the variable for the symbol on the current line in other
1239 window. (See also `find-variable'.)" 1241 window. (See also `find-variable'.)"
1240 (interactive 1242 (interactive
1241 (let ((fn (hyper-apropos-this-symbol))) 1243 (let ((fn (hyper-apropos-this-symbol)))
1242 (or (boundp fn) 1244 (or (boundp fn)
1243 (setq fn nil)) 1245 (setq fn nil))
1244 (list fn))) 1246 (list fn)))
1245 (if fn 1247 (if fn
1246 (find-variable-other-window fn))) 1248 (if-fboundp 'find-variable-other-window
1249 (find-variable-other-window fn)
1250 (error 'unimplemented "`find-func' package unavailable"))))
1247 1251
1248 ;; ---------------------------------------------------------------------- ;; 1252 ;; ---------------------------------------------------------------------- ;;
1249 1253
1250 (defun hyper-apropos-disassemble (sym) 1254 (defun hyper-apropos-disassemble (sym)
1251 "Disassemble FUN if it is byte-coded. If it's a lambda, prettyprint it." 1255 "Disassemble FUN if it is byte-coded. If it's a lambda, prettyprint it."