diff options
Diffstat (limited to 'lisp/emacs-lisp/eieio-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-opt.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el index e93d317d936..f08c1de936b 100644 --- a/lisp/emacs-lisp/eieio-opt.el +++ b/lisp/emacs-lisp/eieio-opt.el @@ -32,6 +32,10 @@ (require 'find-func) (require 'speedbar) +;; We require cl-extra here instead of cl-lib because we need the +;; internal `cl--describe-class' function. +(require 'cl-extra) + ;;; Code: ;;;###autoload (defun eieio-browse (&optional root-class) @@ -155,8 +159,7 @@ are not abstract." (insert "\n\n[Class description not available until class definition is loaded.]\n") (save-excursion (insert (propertize "\n\nClass description:\n" 'face 'bold)) - (eieio-help-class ctr)) - )))) + (cl--describe-class ctr)))))) ;;; METHOD STATS @@ -327,7 +330,7 @@ current expansion depth." (defun eieio-sb-expand (text class indent) "For button TEXT, expand CLASS at the current location. Argument INDENT is the depth of indentation." - (cond ((string-match "+" text) ;we have to expand this file + (cond ((string-match "\\+" text) ;we have to expand this file (speedbar-change-expand-button-char ?-) (speedbar-with-writable (save-excursion |