/[emacs]/emacs/lisp/help-fns.el
ViewVC logotype

Diff of /emacs/lisp/help-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by monnier, Sun Jun 23 21:02:45 2002 UTC revision 1.11 by lektu, Thu Jun 27 07:15:44 2002 UTC
# Line 277  and the file name is displayed in the ec Line 277  and the file name is displayed in the ec
277              ((stringp arglist)              ((stringp arglist)
278               (princ arglist)               (princ arglist)
279               (terpri))))               (terpri))))
280        (let ((obsolete (get function 'byte-obsolete-info)))
281          (when obsolete
282            (terpri)
283            (princ "This function is obsolete")
284            (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete))))
285            (princ ".") (terpri)
286            (princ (if (stringp (car obsolete)) (car obsolete)
287                     (format "Use `%s' instead." (car obsolete))))
288            (terpri)))
289      (let ((doc (documentation function)))      (let ((doc (documentation function)))
290        (if doc        (if doc
291            (progn (terpri)            (progn (terpri)
# Line 310  and the file name is displayed in the ec Line 319  and the file name is displayed in the ec
319                             (insert                             (insert
320                              "[Missing arglist.  Please make a bug report.]\n")))                              "[Missing arglist.  Please make a bug report.]\n")))
321                         (goto-char (point-max)))))                         (goto-char (point-max)))))
322          (princ "not documented")))))          (princ "Not documented.")))))
323    
324    
325  ;; Variables  ;; Variables
# Line 428  it is displayed along with the global va Line 437  it is displayed along with the global va
437                           (format "Use `%s' instead." (car obsolete))))                           (format "Use `%s' instead." (car obsolete))))
438                  (terpri)))                  (terpri)))
439              (let ((doc (documentation-property variable 'variable-documentation)))              (let ((doc (documentation-property variable 'variable-documentation)))
440                (princ (or doc "not documented as a variable.")))                (princ (or doc "Not documented as a variable.")))
441                        
442              ;; Make a link to customize if this variable can be customized.              ;; Make a link to customize if this variable can be customized.
443              ;; Note, it is not reliable to test only for a custom-type property              ;; Note, it is not reliable to test only for a custom-type property

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26