diff options
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 30 |
1 files changed, 13 insertions, 17 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index d160a836359..3e707ff3832 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -659,7 +659,7 @@ speedbar is loaded. You may place anything you like in this list before speedbar has been loaded." :group 'speedbar :type '(repeat (regexp :tag "Directory Regexp")) - :set (lambda (sym val) + :set (lambda (_sym val) (setq speedbar-ignored-directory-expressions val speedbar-ignored-directory-regexp (speedbar-extension-list-to-regex val)))) @@ -713,7 +713,7 @@ need to also modify `completion-ignored-extension' which will also help file completion." :group 'speedbar :type '(repeat (regexp :tag "Extension Regexp")) - :set (lambda (sym val) + :set (lambda (_sym val) (set 'speedbar-supported-extension-expressions val) (set 'speedbar-file-regexp (speedbar-extension-list-to-regex val)))) @@ -1922,7 +1922,7 @@ the file-system." nl)) )) -(defun speedbar-directory-buttons (directory index) +(defun speedbar-directory-buttons (directory _index) "Insert a single button group at point for DIRECTORY. Each directory part is a different button. If part of the directory matches the user directory ~, then it is replaced with a ~. @@ -3313,7 +3313,7 @@ Optional argument ARG indicates that any cache should be flushed." ;; hidden by default anyway. Yay! It's easy. ) -(defun speedbar-find-file (text token indent) +(defun speedbar-find-file (text _token indent) "Speedbar click handler for filenames. TEXT, the file will be displayed in the attached frame. TOKEN is unused, but required by the click handler. INDENT is the @@ -3333,7 +3333,7 @@ current indentation level." (speedbar-set-timer dframe-update-speed)) (dframe-maybee-jump-to-attached-frame)) -(defun speedbar-dir-follow (text token indent) +(defun speedbar-dir-follow (text _token indent) "Speedbar click handler for directory names. Clicking a directory will cause the speedbar to list files in the subdirectory TEXT. TOKEN is an unused requirement. The @@ -3401,7 +3401,7 @@ expanded. INDENT is the current indentation level." (speedbar-center-buffer-smartly) (save-excursion (speedbar-stealthy-updates))) -(defun speedbar-directory-buttons-follow (text token indent) +(defun speedbar-directory-buttons-follow (_text token _indent) "Speedbar click handler for default directory buttons. TEXT is the button clicked on. TOKEN is the directory to follow. INDENT is the current indentation level and is unused." @@ -3422,7 +3422,6 @@ indentation level." (cond ((string-match "+" text) ;we have to expand this file (let* ((fn (expand-file-name (concat (speedbar-line-directory indent) token))) - (mode nil) (lst (speedbar-fetch-dynamic-tags fn))) ;; if no list, then remove expando button (if (not lst) @@ -3438,7 +3437,7 @@ indentation level." (t (error "Ooops... not sure what to do"))) (speedbar-center-buffer-smartly)) -(defun speedbar-tag-find (text token indent) +(defun speedbar-tag-find (_text token indent) "For the tag TEXT in a file TOKEN, go to that position. INDENT is the current indentation level." (let ((file (speedbar-line-directory indent))) @@ -3838,12 +3837,12 @@ regular expression EXPR." ) "Menu item elements shown when displaying a buffer list.") -(defun speedbar-buffer-buttons (directory zero) +(defun speedbar-buffer-buttons (_directory _zero) "Create speedbar buttons based on the buffers currently loaded. DIRECTORY is the directory of the currently active buffer, and ZERO is 0." (speedbar-buffer-buttons-engine nil)) -(defun speedbar-buffer-buttons-temp (directory zero) +(defun speedbar-buffer-buttons-temp (_directory _zero) "Create speedbar buttons based on the buffers currently loaded. DIRECTORY is the directory of the currently active buffer, and ZERO is 0." (speedbar-buffer-buttons-engine t)) @@ -3901,11 +3900,8 @@ If TEMP is non-nil, then clicking on a buffer restores the previous display." (defun speedbar-buffers-tail-notes (buffer) "Add a note to the end of the last tag line. Argument BUFFER is the buffer being tested." - (let (mod ro) - (with-current-buffer buffer - (setq mod (buffer-modified-p) - ro buffer-read-only)) - (if ro (speedbar-insert-button "%" nil nil nil nil t)))) + (when (with-current-buffer buffer buffer-read-only) + (speedbar-insert-button "%" nil nil nil nil t))) (defun speedbar-buffers-item-info () "Display information about the current buffer on the current line." @@ -3920,7 +3916,7 @@ Argument BUFFER is the buffer being tested." (with-current-buffer buffer (buffer-size)) (or (buffer-file-name buffer) "<No file>")))))) -(defun speedbar-buffers-line-directory (&optional depth) +(defun speedbar-buffers-line-directory (&optional _depth) "Fetch the directory of the file (buffer) specified on the current line. Optional argument DEPTH specifies the current depth of the back search." (save-excursion @@ -3937,7 +3933,7 @@ Optional argument DEPTH specifies the current depth of the back search." "") (buffer-file-name buffer)))))))) -(defun speedbar-buffer-click (text token indent) +(defun speedbar-buffer-click (text token _indent) "When the users clicks on a buffer-button in speedbar. TEXT is the buffer's name, TOKEN and INDENT are unused." (if dframe-power-click |