diff options
Diffstat (limited to 'lisp/cedet/semantic/wisent/python.el')
| -rw-r--r-- | lisp/cedet/semantic/wisent/python.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/cedet/semantic/wisent/python.el b/lisp/cedet/semantic/wisent/python.el index 7769ad1961b..fb878dde712 100644 --- a/lisp/cedet/semantic/wisent/python.el +++ b/lisp/cedet/semantic/wisent/python.el @@ -1,4 +1,4 @@ -;;; wisent-python.el --- Semantic support for Python +;;; wisent-python.el --- Semantic support for Python -*- lexical-binding: t; -*- ;; Copyright (C) 2002, 2004, 2006-2021 Free Software Foundation, Inc. @@ -27,8 +27,6 @@ ;;; Code: -(require 'rx) - ;; Try to load python support, but fail silently since it is only used ;; for optional functionality (require 'python nil t) @@ -464,19 +462,19 @@ To be implemented for Python! For now just return nil." (define-mode-local-override semantic-tag-include-filename python-mode (tag) "Return a suitable path for (some) Python imports." (let ((name (semantic-tag-name tag))) - (concat (mapconcat 'identity (split-string name "\\.") "/") ".py"))) + (concat (mapconcat #'identity (split-string name "\\.") "/") ".py"))) ;; Override ctxt-current-function/assignment defaults, since they do ;; not work properly with Python code, even leading to endless loops ;; (see bug #xxxxx). -(define-mode-local-override semantic-ctxt-current-function python-mode (&optional point) +(define-mode-local-override semantic-ctxt-current-function python-mode (&optional _point) "Return the current function call the cursor is in at POINT. The function returned is the one accepting the arguments that the cursor is currently in. It will not return function symbol if the cursor is on the text representing that function." nil) -(define-mode-local-override semantic-ctxt-current-assignment python-mode (&optional point) +(define-mode-local-override semantic-ctxt-current-assignment python-mode (&optional _point) "Return the current assignment near the cursor at POINT. Return a list as per `semantic-ctxt-current-symbol'. Return nil if there is nothing relevant." @@ -512,12 +510,12 @@ Shortens `code' tags, but passes through for others." semantic-type-relation-separator-character '(".") semantic-command-separation-character ";" ;; Parsing - semantic-tag-expand-function 'semantic-python-expand-tag + semantic-tag-expand-function #'semantic-python-expand-tag ;; Semantic to take over from the one provided by python. ;; The python one, if it uses the senator advice, will hang ;; Emacs unrecoverably. - imenu-create-index-function 'semantic-create-imenu-index + imenu-create-index-function #'semantic-create-imenu-index ;; I need a python guru to update this list: semantic-symbol->name-assoc-list-for-type-parts '((variable . "Variables") @@ -557,7 +555,7 @@ SELF or the instance name \"self\" if SELF is nil." (rx-to-string `(seq string-start ,(or self "self") ".")) name) - (not (string-match "\\." (substring name 5))))))) + (not (string-search "." (substring name 5))))))) (defun semantic-python-docstring-p (tag) "Return non-nil, when TAG is a Python documentation string." |