[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/advice.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/advice.el
diff -c emacs/lisp/emacs-lisp/advice.el:1.34 
emacs/lisp/emacs-lisp/advice.el:1.35
*** emacs/lisp/emacs-lisp/advice.el:1.34        Sat May  3 20:32:46 2003
--- emacs/lisp/emacs-lisp/advice.el     Tue May  6 09:58:30 2003
***************
*** 3005,3011 ****
          (ad-real-documentation origdef t))
         (usage (help-split-fundoc origdoc function))
         paragraphs advice-docstring ad-usage)
!     (if usage (setq origdoc (cdr usage) usage (car usage)))
      (if origdoc (setq paragraphs (list origdoc)))
      (unless (eq style 'plain)
        (push (concat "This " origtype " is advised.") paragraphs))
--- 3005,3011 ----
          (ad-real-documentation origdef t))
         (usage (help-split-fundoc origdoc function))
         paragraphs advice-docstring ad-usage)
!     (setq usage (if (null usage) t (setq origdoc (cdr usage)) (car usage)))
      (if origdoc (setq paragraphs (list origdoc)))
      (unless (eq style 'plain)
        (push (concat "This " origtype " is advised.") paragraphs))