branch: externals/visual-filename-abbrev
commit f8c6fc0df6baef8b564aa8648fc002f4bb24db1e
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Fix byte-compiler warnings
* visual-filename-abbrev.el
(visual-filename-abbrev--abbrev-visually-shorter-p):
(visual-filename-abbrev--cursor-sensor): Mark unused function arguments
with _.
---
visual-filename-abbrev.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/visual-filename-abbrev.el b/visual-filename-abbrev.el
index 30b7d8a..fce19f0 100644
--- a/visual-filename-abbrev.el
+++ b/visual-filename-abbrev.el
@@ -1,6 +1,6 @@
;;; visual-filename-abbrev.el --- Visually abbreviate filenames -*-
lexical-binding: t; -*-
-;; Copyright (C) 2019 Free Software Foundation, Inc
+;; Copyright (C) 2019-2020 Free Software Foundation, Inc
;; Author: Tassilo Horn <t...@gnu.org>
;; Maintainer: Tassilo Horn <t...@gnu.org>
@@ -103,7 +103,7 @@ Shorter means less characters here."
(font-get-glyphs font 0 (length str) str)
0))
-(defun visual-filename-abbrev--abbrev-visually-shorter-p (buffer pos filename
abbrev)
+(defun visual-filename-abbrev--abbrev-visually-shorter-p (_buffer pos filename
abbrev)
"Return non-nil if ABBREV's display representation is shorter than FILENAME.
This takes the font into account."
;; When activated from a hook, this function may run before the current
@@ -156,15 +156,13 @@ These predicates are available:
(when (overlay-get ol 'visual-filename-abbrev)
(delete-overlay ol))))
-(defun visual-filename-abbrev--cursor-sensor (window old-pos dir)
- ;;(message "cs: %S %S %S" window old-pos dir)
+(defun visual-filename-abbrev--cursor-sensor (_window old-pos dir)
(when-let ((ol (if (eq dir 'entered)
(visual-filename-abbrev--get-overlay (point))
(or (visual-filename-abbrev--get-overlay old-pos)
(visual-filename-abbrev--get-overlay (if (> (point)
old-pos)
(1- old-pos)
(1+ old-pos)))))))
- ;;(message " => %S" ol)
(if (eq dir 'entered)
(when-let ((d (overlay-get ol 'display)))
(overlay-put ol 'visual-filename-abbrev--display-backup d)
