[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/symbol-overlay 18d2f4ea65 148/152: Enable lexical-binding
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/symbol-overlay 18d2f4ea65 148/152: Enable lexical-binding use hashed symbols for better compiler warnings |
Date: |
Thu, 7 Jul 2022 12:04:23 -0400 (EDT) |
branch: elpa/symbol-overlay
commit 18d2f4ea6572cf880f6aad0f2d03920601a7b815
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Enable lexical-binding use hashed symbols for better compiler warnings
---
symbol-overlay.el | 85 +++++++++++++++++++++++++++----------------------------
1 file changed, 42 insertions(+), 43 deletions(-)
diff --git a/symbol-overlay.el b/symbol-overlay.el
index f7ebd4ebf6..b51a286d26 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -1,4 +1,4 @@
-;;; symbol-overlay.el --- Highlight symbols with keymap-enabled overlays
+;;; symbol-overlay.el --- Highlight symbols with keymap-enabled overlays -*-
lexical-binding: t -*-
;; Copyright (C) 2017 wolray
@@ -188,19 +188,19 @@ of such packages.")
(defvar symbol-overlay-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "i") 'symbol-overlay-put)
- (define-key map (kbd "h") 'symbol-overlay-map-help)
- (define-key map (kbd "p") 'symbol-overlay-jump-prev)
- (define-key map (kbd "n") 'symbol-overlay-jump-next)
- (define-key map (kbd "<") 'symbol-overlay-jump-first)
- (define-key map (kbd ">") 'symbol-overlay-jump-last)
- (define-key map (kbd "w") 'symbol-overlay-save-symbol)
- (define-key map (kbd "t") 'symbol-overlay-toggle-in-scope)
- (define-key map (kbd "e") 'symbol-overlay-echo-mark)
- (define-key map (kbd "d") 'symbol-overlay-jump-to-definition)
- (define-key map (kbd "s") 'symbol-overlay-isearch-literally)
- (define-key map (kbd "q") 'symbol-overlay-query-replace)
- (define-key map (kbd "r") 'symbol-overlay-rename)
+ (define-key map (kbd "i") #'symbol-overlay-put)
+ (define-key map (kbd "h") #'symbol-overlay-map-help)
+ (define-key map (kbd "p") #'symbol-overlay-jump-prev)
+ (define-key map (kbd "n") #'symbol-overlay-jump-next)
+ (define-key map (kbd "<") #'symbol-overlay-jump-first)
+ (define-key map (kbd ">") #'symbol-overlay-jump-last)
+ (define-key map (kbd "w") #'symbol-overlay-save-symbol)
+ (define-key map (kbd "t") #'symbol-overlay-toggle-in-scope)
+ (define-key map (kbd "e") #'symbol-overlay-echo-mark)
+ (define-key map (kbd "d") #'symbol-overlay-jump-to-definition)
+ (define-key map (kbd "s") #'symbol-overlay-isearch-literally)
+ (define-key map (kbd "q") #'symbol-overlay-query-replace)
+ (define-key map (kbd "r") #'symbol-overlay-rename)
map)
"Keymap automatically activated inside overlays.
You can re-bind the commands to any keys you prefer.")
@@ -226,10 +226,10 @@ You can re-bind the commands to any keys you prefer.")
:keymap symbol-overlay-mode-map
(if symbol-overlay-mode
(progn
- (add-hook 'post-command-hook 'symbol-overlay-post-command nil t)
- (add-hook 'kill-buffer-hook 'symbol-overlay-cancel-timer)
+ (add-hook 'post-command-hook #'symbol-overlay-post-command nil t)
+ (add-hook 'kill-buffer-hook #'symbol-overlay-cancel-timer)
(symbol-overlay-update-timer symbol-overlay-idle-time))
- (remove-hook 'post-command-hook 'symbol-overlay-post-command t)
+ (remove-hook 'post-command-hook #'symbol-overlay-post-command t)
(symbol-overlay-cancel-timer)
(symbol-overlay-remove-temp)))
@@ -241,12 +241,12 @@ If EXCLUDE is non-nil, get all overlays excluding those
belong to SYMBOL."
(let ((lists (progn (overlay-recenter (point)) (overlay-lists)))
(func (if (> dir 0) 'cdr (if (< dir 0) 'car nil))))
(seq-filter
- '(lambda (ov)
- (let ((value (overlay-get ov 'symbol)))
- (and value
- (or (not symbol)
- (if (string= value symbol) (not exclude)
- (and exclude (not (string= value ""))))))))
+ (lambda (ov)
+ (let ((value (overlay-get ov 'symbol)))
+ (and value
+ (or (not symbol)
+ (if (string= value symbol) (not exclude)
+ (and exclude (not (string= value ""))))))))
(if func (funcall func lists)
(append (car lists) (cdr lists))))))
@@ -358,7 +358,7 @@ time."
(symbol-overlay-cancel-timer)
(setq symbol-overlay-timer
(and value (> value 0)
- (run-with-idle-timer value t 'symbol-overlay-idle-timer
(current-buffer)))))
+ (run-with-idle-timer value t #'symbol-overlay-idle-timer
(current-buffer)))))
(defun symbol-overlay-post-command ()
"Installed on `post-command-hook'."
@@ -390,8 +390,7 @@ If KEYWORD is non-nil, remove it then use its color on new
overlays."
(face (or (symbol-overlay-maybe-remove keyword)
(elt symbol-overlay-faces (random limit))))
(alist symbol-overlay-keywords-alist)
- (faces (mapcar 'cddr alist))
- (pt (point)))
+ (faces (mapcar #'cddr alist)))
(if (< (length alist) limit)
(while (seq-position faces face)
(setq face (elt symbol-overlay-faces (random limit))))
@@ -431,7 +430,7 @@ KEYWORDS is a list of strings. SYMBOL is expected to be a
return
value of `symbol-overlay-get-symbol'."
(cl-find symbol keywords :test #'string=))
-(defun symbol-overlay-refresh (beg end len)
+(defun symbol-overlay-refresh (beg end _len)
"Refresh overlays. Installed on `after-change-functions'.
BEG, END and LEN are the beginning, end and length of changed text."
(unless (or (minibufferp)
@@ -448,19 +447,19 @@ BEG, END and LEN are the beginning, end and length of
changed text."
(and (not (looking-at-p "\\_<"))
(looking-at-p (concat "\\(" re "\\|\\_>\\)"))
(setq beg (re-search-backward "\\_<")))
- (mapc #'(lambda (ov)
- (and (overlay-get ov 'symbol)
- (delete-overlay ov)))
+ (mapc (lambda (ov)
+ (and (overlay-get ov 'symbol)
+ (delete-overlay ov)))
(overlays-in beg end))
- (mapc #'(lambda (keyword)
- (let* ((symbol (car keyword))
- (re (symbol-overlay-regexp symbol)))
- (goto-char beg)
- (while (re-search-forward re end t)
- (symbol-overlay-put-one symbol (cddr keyword)))))
+ (mapc (lambda (keyword)
+ (let* ((symbol (car keyword))
+ (re (symbol-overlay-regexp symbol)))
+ (goto-char beg)
+ (while (re-search-forward re end t)
+ (symbol-overlay-put-one symbol (cddr keyword)))))
symbol-overlay-keywords-alist))))))
-(add-hook 'after-change-functions 'symbol-overlay-refresh)
+(add-hook 'after-change-functions #'symbol-overlay-refresh)
(defun symbol-overlay-after-revert ()
"Restore overlays after the buffer was reverted."
@@ -468,7 +467,7 @@ BEG, END and LEN are the beginning, end and length of
changed text."
(widen)
(symbol-overlay-refresh (point-min) (point-max) nil)))
-(add-hook 'after-revert-hook 'symbol-overlay-after-revert)
+(add-hook 'after-revert-hook #'symbol-overlay-after-revert)
;;; Language-Specific Ignore
@@ -586,7 +585,7 @@ When called interactively, then also reset
(when (called-interactively-p 'any)
(setq symbol-overlay-keywords-alist nil))))
-(add-hook 'before-revert-hook 'symbol-overlay-remove-all)
+(add-hook 'before-revert-hook #'symbol-overlay-remove-all)
;;;###autoload
(defun symbol-overlay-save-symbol ()
@@ -663,14 +662,14 @@ DIR must be non-zero."
"Jump to the next location of symbol at point."
(interactive)
(symbol-overlay-adjust-position)
- (symbol-overlay-jump-call 'symbol-overlay-basic-jump 1))
+ (symbol-overlay-jump-call #'symbol-overlay-basic-jump 1))
;;;###autoload
(defun symbol-overlay-jump-prev ()
"Jump to the previous location of symbol at point."
(interactive)
(symbol-overlay-adjust-position)
- (symbol-overlay-jump-call 'symbol-overlay-basic-jump -1))
+ (symbol-overlay-jump-call #'symbol-overlay-basic-jump -1))
;;;###autoload
(defun symbol-overlay-jump-first ()
@@ -680,7 +679,7 @@ DIR must be non-zero."
(let* ((symbol (symbol-overlay-get-symbol))
(before (symbol-overlay-get-list -1 symbol))
(count (length before)))
- (symbol-overlay-jump-call 'symbol-overlay-basic-jump (- count))))
+ (symbol-overlay-jump-call #'symbol-overlay-basic-jump (- count))))
;;;###autoload
(defun symbol-overlay-jump-last ()
@@ -690,7 +689,7 @@ DIR must be non-zero."
(let* ((symbol (symbol-overlay-get-symbol))
(after (symbol-overlay-get-list 1 symbol))
(count (length after)))
- (symbol-overlay-jump-call 'symbol-overlay-basic-jump (- count 1))))
+ (symbol-overlay-jump-call #'symbol-overlay-basic-jump (- count 1))))
(defvar-local symbol-overlay-definition-function
'(lambda (symbol) (concat "(?def[a-z-]* " (symbol-overlay-regexp symbol)))
- [nongnu] elpa/symbol-overlay b00771b093 073/152: 170814, (continued)
- [nongnu] elpa/symbol-overlay b00771b093 073/152: 170814, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 03da3c1d43 078/152: Merge pull request #11 from purcell/patch-2, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 33e5138fa9 083/152: add faces, replace color logic with face logic, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 2138e296fd 088/152: Merge pull request #18 from wbolster/major-mode-ignore-callbacks, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay dc3a9b4cd3 093/152: Merge pull request #23 from tarsiiformes/custom-type, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 8bcb681bcb 099/152: Merge pull request #27 from dakra/add-go-support, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 88c3ed02a0 115/152: bind kbd < > to jump-first/last, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 7fa58ecaa7 144/152: Avoid positional arguments to define-minor-mode, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay a37404a6a0 097/152: Merge pull request #26 from jguenther/patch-1, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 831506ee12 103/152: Merge pull request #29 from Wilfred/font-customize, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 18d2f4ea65 148/152: Enable lexical-binding use hashed symbols for better compiler warnings,
ELPA Syncer <=
- [nongnu] elpa/symbol-overlay 5290fd464f 150/152: Only use one timer for all buffers, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay a71d6d1f31 018/152: add auto-refresh, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 5b00bb2952 032/152: (v2.6) new feature: scope, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 8cdd9ab096 038/152: add documentation of new feature, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 59053522a8 044/152: fix bugs, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 5c6c57a529 054/152: fix message, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay f5392fb932 051/152: fix case-error in rename, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 01aff461c2 055/152: better query-replace and rename, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 3eb0864b65 071/152: Merge pull request #9 from purcell/patch-1, ELPA Syncer, 2022/07/07
- [nongnu] elpa/symbol-overlay 4a70f6d999 075/152: When renaming, don't add coloured highlight if there wasn't previously one, ELPA Syncer, 2022/07/07