From c5f4d0fea55940bd1962d656b65e6c1de560c326 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 21 Oct 2023 13:48:30 -0400 Subject: [PATCH] * lisp/cedet/semantic/imenu.el: Don't load `advice` We don't use it any more here. Also move the `;;; Code:` where it belongs. --- lisp/cedet/semantic/imenu.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/cedet/semantic/imenu.el b/lisp/cedet/semantic/imenu.el index a28f050f3a0..7f27561c3d2 100644 --- a/lisp/cedet/semantic/imenu.el +++ b/lisp/cedet/semantic/imenu.el @@ -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 -- 2.39.5