Show
Ignore:
Timestamp:
01/28/06 09:46:44 (3 years ago)
Author:
miyoshi
Message:

Update.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/help-fns.el

    r3988 r4018  
    22 
    33;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 
    4 ;;   2002, 2003, 2004, 2005 Free Software Foundation, Inc. 
     4;;   2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. 
    55 
    66;; Maintainer: FSF 
    …… 
    114114                                    (format "Describe function (default %s): " fn) 
    115115                                  "Describe function: ") 
    116                                 obarray 'fboundp t nil nil (symbol-name fn))) 
     116                                obarray 'fboundp t nil nil 
     117                                (and fn (symbol-name fn)))) 
    117118     (list (if (equal val "") 
    118119               fn (intern val))))) 
    …… 
    224225          file))))) 
    225226 
    226 ;;;###autoload 
    227227(defface help-argument-name '((((supports :slant italic)) :inherit italic)) 
    228228  "Face to highlight argument names in *Help* buffers." 
    …… 
    437437                        (t "[Missing arglist.  Please make a bug report.]"))) 
    438438                 (high (help-highlight-arguments use doc))) 
    439             (insert (car high) "\n") 
     439            (let ((fill-begin (point))) 
     440              (insert (car high) "\n") 
     441              (fill-region fill-begin (point))) 
    440442            (setq doc (cdr high)))) 
    441443        (let ((obsolete (and 
    …… 
    554556                                          variable file-name))) 
    555557                    (if valvoid 
    556                         (princ "It is void as a variable.\n") 
     558                        (princ "It is void as a variable.") 
    557559                      (princ "Its "))) 
    558560                (if valvoid 
    559                     (princ " is void as a variable.\n") 
     561                    (princ " is void as a variable.") 
    560562                  (princ "'s ")))) 
    561563            (if valvoid