Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children 0e522484dd2a
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
934 (funcall int "autoloaded Lisp" t (elt def 4))) 934 (funcall int "autoloaded Lisp" t (elt def 4)))
935 ((and (symbolp def) (not (fboundp def))) 935 ((and (symbolp def) (not (fboundp def)))
936 (princ "a symbol with a void (unbound) function definition." stream)) 936 (princ "a symbol with a void (unbound) function definition." stream))
937 (t 937 (t
938 nil))) 938 nil)))
939 (princ "\n") 939 (princ "\n" stream)
940 (if autoload-file 940 (if autoload-file
941 (princ (format " -- autoloads from \"%s\"\n" autoload-file) stream)) 941 (princ (format " -- autoloads from \"%s\"\n" autoload-file) stream))
942 (or file-name 942 (or file-name
943 (setq file-name (describe-function-find-file function))) 943 (setq file-name (describe-function-find-file function)))
944 (if file-name 944 (if file-name
998 (unless (or (equal doc "") 998 (unless (or (equal doc "")
999 (eq ?\n (aref doc (1- (length doc))))) 999 (eq ?\n (aref doc (1- (length doc)))))
1000 (terpri stream)))))))) 1000 (terpri stream))))))))
1001 1001
1002 1002
1003 ;;; ## this doesn't seem to be used for anything 1003 ;;; this doesn't seem to be used for anything
1004 ;; (defun describe-function-arglist (function) 1004 ;;; Wrong! Obnoxious, whining people who complain very LOUDLY on Usenet
1005 ;; (interactive (list (or (function-at-point) 1005 ;;; are binding this to keys.
1006 ;; (error "no function call at point")))) 1006 (defun describe-function-arglist (function)
1007 ;; (let ((b nil)) 1007 (interactive (list (or (function-at-point)
1008 ;; (unwind-protect 1008 (error "no function call at point"))))
1009 ;; (save-excursion 1009 (let ((b nil))
1010 ;; (set-buffer (setq b (get-buffer-create " *arglist*"))) 1010 (unwind-protect
1011 ;; (buffer-disable-undo b) 1011 (save-excursion
1012 ;; (erase-buffer) 1012 (set-buffer (setq b (get-buffer-create " *arglist*")))
1013 ;; (describe-function-1 function b t) 1013 (buffer-disable-undo b)
1014 ;; (goto-char (point-min)) 1014 (erase-buffer)
1015 ;; (end-of-line) 1015 (describe-function-1 function b t)
1016 ;; (or (eobp) (delete-char 1)) 1016 (goto-char (point-min))
1017 ;; (just-one-space) 1017 (end-of-line)
1018 ;; (end-of-line) 1018 (or (eobp) (delete-char 1))
1019 ;; (message (buffer-substring (point-min) (point)))) 1019 (just-one-space)
1020 ;; (and b (kill-buffer b))))) 1020 (end-of-line)
1021 (message (buffer-substring (point-min) (point))))
1022 (and b (kill-buffer b)))))
1021 1023
1022 1024
1023 (defun variable-at-point () 1025 (defun variable-at-point ()
1024 (ignore-errors 1026 (ignore-errors
1025 (let ((stab (syntax-table))) 1027 (let ((stab (syntax-table)))