]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/cedet/semantic/imenu.el: Don't load `advice`
authorStefan Monnier <monnier@iro.umontreal.ca>
Sat, 21 Oct 2023 17:48:30 +0000 (13:48 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sat, 21 Oct 2023 17:48:30 +0000 (13:48 -0400)
We don't use it any more here.  Also move the `;;; Code:` where it belongs.

lisp/cedet/semantic/imenu.el

index a28f050f3a07ecb90c1a1b29d0da11217012b046..7f27561c3d2e8aa9b45fae9d7ea7557492ee22dd 100644 (file)
@@ -32,6 +32,8 @@
 ;;             (setq imenu-create-index-function 'semantic-create-imenu-index)
 ;;             ))
 
+;;; Code:
+
 (require 'semantic)
 (require 'semantic/format)
 (require 'semantic/db)
@@ -134,7 +136,6 @@ Tags of those classes will be given submenu with children.
 By default, a `type' has interesting children.  In Texinfo, however, a
 `section' has interesting children.")
 
-;;; Code:
 (defun semantic-imenu-tag-overlay (tag)
   "Return the overlay belonging to tag.
 If TAG doesn't have an overlay, and instead as a vector of positions,
@@ -469,9 +470,8 @@ Clears all imenu menus that may be depending on the database."
 ;; buffer, there is a much more efficient way of doing this.
 ;; Advise `which-function' so that we optionally use semantic tags
 ;; instead, and get better stuff.
-(require 'advice)
 
-(defvar semantic-which-function 'semantic-default-which-function
+(defvar semantic-which-function #'semantic-default-which-function
   "Function to convert semantic tags into `which-function' text.")
 
 (defcustom semantic-which-function-use-color nil