Mercurial > emacs

comparison lisp/help-fns.el @ 85140:caa57db87d2a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-variable): Add missing " " for multiline obsolescence info and missing EOL after global value.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 10 Oct 2007 19:18:53 +0000
parents ee30e57a2bd8
children 6830ce7af289 d38543a1c0f9
comparison
equal deleted inserted replaced
85139:8ba0e30716a5 85140:caa57db87d2a
563 (let ((from (point))) 563 (let ((from (point)))
564 (pp val) 564 (pp val)
565 ;; See previous comment for this function. 565 ;; See previous comment for this function.
566 ;; (help-xref-on-pp from (point)) 566 ;; (help-xref-on-pp from (point))
567 (if (< (point) (+ from 20)) 567 (if (< (point) (+ from 20))
568 (delete-region (1- from) from))))))) 568 (delete-region (1- from) from))))))
569 (terpri))
569 570
570 ;; If the value is large, move it to the end. 571 ;; If the value is large, move it to the end.
571 (with-current-buffer standard-output 572 (with-current-buffer standard-output
572 (when (> (count-lines (point-min) (point-max)) 10) 573 (when (> (count-lines (point-min) (point-max)) 10)
573 ;; Note that setting the syntax table like below 574 ;; Note that setting the syntax table like below
615 616
616 (when obsolete 617 (when obsolete
617 (setq extra-line t) 618 (setq extra-line t)
618 (princ " This variable is obsolete") 619 (princ " This variable is obsolete")
619 (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) 620 (if (cdr obsolete) (princ (format " since %s" (cdr obsolete))))
620 (princ ";") (terpri) 621 (princ ";\n ")
621 (princ (if (stringp (car obsolete)) (car obsolete) 622 (princ (if (stringp (car obsolete)) (car obsolete)
622 (format "use `%s' instead." (car obsolete)))) 623 (format "use `%s' instead." (car obsolete))))
623 (terpri)) 624 (terpri))
624 (when safe-var 625 (when safe-var
625 (setq extra-line t) 626 (setq extra-line t)