diff options
| -rw-r--r-- | ee-autoloads.el | 4 | ||||
| -rwxr-xr-x | ee-bbdb.el | 13 | ||||
| -rwxr-xr-x | ee-buffers.el | 12 | ||||
| -rwxr-xr-x | ee-commands.el | 4 | ||||
| -rwxr-xr-x | ee-customize.el | 4 | ||||
| -rwxr-xr-x | ee-datafile.el | 2 | ||||
| -rwxr-xr-x | ee-dired.el | 4 | ||||
| -rwxr-xr-x | ee-dselect.el | 8 | ||||
| -rwxr-xr-x | ee-edb.el | 26 | ||||
| -rwxr-xr-x | ee-ell.el | 6 | ||||
| -rwxr-xr-x | ee-example.el | 6 | ||||
| -rwxr-xr-x | ee-fields.el | 10 | ||||
| -rwxr-xr-x | ee-finder.el | 8 | ||||
| -rwxr-xr-x | ee-gnus.el | 7 | ||||
| -rwxr-xr-x | ee-history.el | 10 | ||||
| -rwxr-xr-x | ee-imenu.el | 8 | ||||
| -rwxr-xr-x | ee-info.el | 14 | ||||
| -rwxr-xr-x | ee-marks.el | 8 | ||||
| -rwxr-xr-x | ee-menubar.el | 18 | ||||
| -rwxr-xr-x | ee-outline.el | 20 | ||||
| -rwxr-xr-x | ee-processes.el | 4 | ||||
| -rwxr-xr-x | ee-programs.el | 4 | ||||
| -rwxr-xr-x | ee-ps.el | 2 | ||||
| -rwxr-xr-x | ee-tags.el | 10 | ||||
| -rwxr-xr-x | ee-textfile.el | 13 | ||||
| -rwxr-xr-x | ee-variables.el | 4 | ||||
| -rwxr-xr-x | ee-views.el | 10 | ||||
| -rwxr-xr-x | ee-windows.el | 10 | ||||
| -rwxr-xr-x | ee.el | 87 |
29 files changed, 193 insertions, 143 deletions
diff --git a/ee-autoloads.el b/ee-autoloads.el index 0cf88ca..dcaba04 100644 --- a/ee-autoloads.el +++ b/ee-autoloads.el @@ -117,7 +117,7 @@ Summary mode for EDB. \(fn &optional ARG)" t) -(register-definition-prefixes "ee-edb" '("ee-edb-")) +(register-definition-prefixes "ee-edb" '("dbc-database" "dbf-summary-" "dbs-" "ee-edb-" "maplinks-")) ;;;*** @@ -177,7 +177,7 @@ Summary and topic mode for Gnus. \(fn &optional ARG)" t) -(register-definition-prefixes "ee-gnus" '("ee-gnus-")) +(register-definition-prefixes "ee-gnus" '("ee-gnus-" "gnus-topic-")) ;;;*** @@ -33,6 +33,13 @@ (eval-when-compile (require 'bbdb-autoloads nil t)) +(declare-function bbdb-delete-record-internal "bbdb" (&rest args)) +(declare-function bbdb-send-mail-1 "bbdb" (&rest args)) +(declare-function bbdb-change-record "bbdb" (&rest args)) +(declare-function bbdb-invoke-hook "bbdb" (&rest args)) +(declare-function bbdb-read-new-record "bbdb" (&rest args)) +(declare-function bbdb-records "bbdb" (&rest args)) + ;;; Constants (defconst ee-bbdb-mode-name "ee-bbdb") @@ -85,8 +92,8 @@ bbdb-create-internal instead." "Compose a mail message to the person indicated by the current bbdb record. The first (most-recently-added) address is used if there are more than one. \\<bbdb-mode-map> -If \"\\[bbdb-apply-next-command-to-all-records]\\[bbdb-send-mail]\" is \ -used instead of simply \"\\[bbdb-send-mail]\", then mail will be sent to \ +If \"\\[bbdb-apply-next-command-to-all-records]\\[bbdb-send-mail]\" is +used instead of simply \"\\[bbdb-send-mail]\", then mail will be sent to all of the folks listed in the *BBDB* buffer instead of just the person at point." (interactive (list (ee-field 'bbdb-record))) @@ -120,7 +127,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-bbdb (&optional arg) +(defun ee-bbdb (&optional _arg) "Summary mode for BBDB." (interactive "P") (require 'bbdb-autoloads) diff --git a/ee-buffers.el b/ee-buffers.el index 4fe48b0..ab0f6fd 100755 --- a/ee-buffers.el +++ b/ee-buffers.el @@ -60,7 +60,7 @@ Used in the view description to place the buffer file directory name into different categories depending on the file directory name. Example: - '((\"ee\" . \"ee\") + \\='((\"ee\" . \"ee\") (\"emacs\" . \"emacs\") (\"\\\\(html\\\\|www\\\\)\" . \"www\"))" :type '(repeat (cons (regexp :tag "Directory name regexp") @@ -74,7 +74,7 @@ Used in the view description to place the buffer file directory name into different categories depending on the file name. Example: - '((\".emacs\" . \"emacs\"))" + \\='((\".emacs\" . \"emacs\"))" :type '(repeat (cons (regexp :tag "File name regexp") (string :tag "Category name"))) :group 'ee-buffers) @@ -145,7 +145,7 @@ Example: (if old-data (ee-data-records-do new-data - (lambda (r ri) + (lambda (r _ri) (if (memq (ee-field 'buffer r) old-data) (ee-field-set 'mark 'D r))))) new-data)) @@ -155,7 +155,7 @@ Example: (defun ee-buffers-post-update () "Find previously visited buffer to place point on it after calling `ee-buffers'." - (let ((data-getters (ee-data-meta-getters-get-set ee-data))) + (let ((_data-getters (ee-data-meta-getters-get-set ee-data))) (or ee-current-c-key-field ee-current-r-key-field (ee-view-record-by-key ee-parent-buffer)) @@ -242,7 +242,7 @@ See also `ee-buffers-auto-refresh-delay' for hook setter." ;;; Actions -(defun ee-buffers-switch-to-buffer (&optional arg other-window) +(defun ee-buffers-switch-to-buffer (&optional _arg other-window) (interactive) (let ((buffer (ee-field 'buffer))) (if (and buffer (buffer-name buffer)) @@ -319,7 +319,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-buffers (&optional arg) +(defun ee-buffers (&optional _arg) "Display and manipulate Emacs buffers." (interactive "P") (ee-view-buffer-create diff --git a/ee-commands.el b/ee-commands.el index f0f934d..897bf0a 100755 --- a/ee-commands.el +++ b/ee-commands.el @@ -84,7 +84,7 @@ ;;; Actions -(defun ee-commands-call-interactively (&optional arg) +(defun ee-commands-call-interactively (&optional _arg) (interactive) (let ((command (ee-field 'command)) (parent-buffer ee-parent-buffer)) @@ -112,7 +112,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-commands (&optional arg) +(defun ee-commands (&optional _arg) "Categorized menu of Emacs commands." (interactive "P") (ee-view-buffer-create diff --git a/ee-customize.el b/ee-customize.el index e3d6bd9..fe4e2c1 100755 --- a/ee-customize.el +++ b/ee-customize.el @@ -83,7 +83,7 @@ ;;; Actions -(defun ee-customize-customize-group (&optional arg) +(defun ee-customize-customize-group (&optional _arg) (interactive) (customize-group (ee-field 'name))) @@ -107,7 +107,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-customize (&optional arg) +(defun ee-customize (&optional _arg) "Browse Emacs customization groups." (interactive "P") (require 'cus-edit) diff --git a/ee-datafile.el b/ee-datafile.el index 559a659..cefbfc8 100755 --- a/ee-datafile.el +++ b/ee-datafile.el @@ -65,7 +65,7 @@ when user visits a file with -*- mode: ee-datafile -*-." (ee-datafile arg))) ;;;###autoload -(defun ee-datafile (&optional arg file) +(defun ee-datafile (&optional _arg file) "Display and edit data files." (interactive "P") (ee-view-buffer-create diff --git a/ee-dired.el b/ee-dired.el index 3f1d6ac..fbb0124 100755 --- a/ee-dired.el +++ b/ee-dired.el @@ -88,7 +88,7 @@ ;;; Actions -(defun ee-dired-find-file (&optional arg) +(defun ee-dired-find-file (&optional _arg) (interactive) (find-file (expand-file-name (ee-field 'file-name) (ee-field 'directory)))) @@ -112,7 +112,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-dired (&optional arg) +(defun ee-dired (&optional _arg) "Categorized directory listings." (interactive "P") (ee-view-buffer-create diff --git a/ee-dselect.el b/ee-dselect.el index 26f29b3..7538f95 100755 --- a/ee-dselect.el +++ b/ee-dselect.el @@ -31,7 +31,7 @@ (require 'ee) (eval-when-compile - (require 'cl)) + (require 'cl-lib)) ;;; Constants @@ -149,7 +149,7 @@ shouldn't be any need to change it." ;;; Actions -(defun ee-dselect-display-info-with-narrow (&optional arg) +(defun ee-dselect-display-info-with-narrow (&optional _arg) (interactive) (let* ((d (ee-field 'description)) ;; 12 is the length of the string "Description:" @@ -160,7 +160,7 @@ shouldn't be any need to change it." (goto-char b)) (set-window-start (display-buffer (ee-dselect-get-buffer-available)) b)))) -(defun ee-dselect-display-description-with-narrow (&optional arg) +(defun ee-dselect-display-description-with-narrow (&optional _arg) (interactive) (let* ((d (ee-field 'description)) ;; 12 is the length of the string "Description:" @@ -191,7 +191,7 @@ It inherits key bindings from `ee-mode-map'." (ee-dselect-keymap-make-default)) ;;;###autoload -(defun ee-dselect (&optional arg) +(defun ee-dselect (&optional _arg) "Debian package handling frontend." (interactive "P") (ee-view-buffer-create @@ -34,6 +34,16 @@ (require 'database nil t) (require 'db-summary nil t)) +(declare-function db-create-summary-buffer "database" (&rest args)) +(declare-function db-debug-message "database" (&rest args)) +(declare-function db-jump-to-record "database" (&rest args)) +(declare-function dbf-set-summary-format "database" (&rest args)) +(declare-function dbf-summary-buffer "database" (&rest args)) +(declare-function link-record "database" (&rest args)) +(declare-function link-set-summary "database" (&rest args)) +(declare-function link-summary "database" (&rest args)) +(declare-function maplinks-macro "database" (&rest args)) + ;;; Constants (defconst ee-edb-mode-name "ee-edb") @@ -58,6 +68,16 @@ ;;; Data Extraction +(defvar dbc-database nil) +(defvar dbf-summary-buffer nil) +(defvar dbf-summary-format nil) +(defvar dbf-summary-function nil) +(defvar dbf-summary-recompute-all-p nil) +(defvar dbs-data-display-buffer nil) +(defvar dbs-no-of-records nil) +(defvar maplinks-index nil) +(defvar maplinks-link nil) + (defun ee-edb-data-collect (data) (setq dbs-no-of-records -1) (setq dbc-database (with-current-buffer ee-parent-buffer dbc-database)) @@ -73,7 +93,7 @@ (db-create-summary-buffer data-display-buffer))) (setq dbs-data-display-buffer data-display-buffer) (maplinks-macro - (let ((r maplinks-link) + (let ((_r maplinks-link) (summary-function dbf-summary-function) (recompute-all-p dbf-summary-recompute-all-p)) (if (or recompute-all-p (not (link-summary maplinks-link))) @@ -92,7 +112,7 @@ ;;; Actions -(defun ee-edb-switch-to-buffer (&optional arg) +(defun ee-edb-switch-to-buffer (&optional _arg) (interactive "P") (let ((ri (ee-view-record-index-get (point)))) (when (and ri ee-parent-buffer) @@ -119,7 +139,7 @@ It inherits key bindings from `ee-mode-map'." (ee-edb-keymap-make-default)) ;;;###autoload -(defun ee-edb (&optional arg) +(defun ee-edb (&optional _arg) "Summary mode for EDB." (interactive "P") (require 'database) @@ -123,7 +123,7 @@ ;;; Actions -(defun ee-ell-select (&optional arg) +(defun ee-ell-select (&optional _arg) (interactive) (message "%s" (ee-view-record-get))) @@ -173,7 +173,7 @@ Negative arg means uninstall backwards." (find-file local-file) (load (concat ee-ell-install-dir local-file))))) -(defun ee-ell-uninstall (r) +(defun ee-ell-uninstall (_r) (interactive) ;; TODO ) @@ -200,7 +200,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-ell (&optional arg) +(defun ee-ell (&optional _arg) "Browse the categorized Emacs Lisp List." (interactive "P") (ee-view-buffer-create diff --git a/ee-example.el b/ee-example.el index 5764ac2..ee3c57e 100755 --- a/ee-example.el +++ b/ee-example.el @@ -74,11 +74,11 @@ ;;; Actions -(defun ee-example-select (&optional arg) +(defun ee-example-select (&optional _arg) (interactive) (message "%s" (ee-field 'name))) -(defun ee-example-execute (r marks) +(defun ee-example-execute (_r _marks) (interactive)) ;;; Key Bindings @@ -101,7 +101,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-example (&optional arg) +(defun ee-example (&optional _arg) "Accompanying example for demonstration of ee capabilities." (interactive "P") (ee-view-buffer-create diff --git a/ee-fields.el b/ee-fields.el index 06c77c5..585fc4c 100755 --- a/ee-fields.el +++ b/ee-fields.el @@ -70,16 +70,18 @@ ;;; Actions +(declare-function gnus-edit-form "gnus-eform" (&rest args)) + ;; TODO: make function to read from separate buffer as in Gnus format, C-c C-c ;; (if (or (consp value) (and (stringp value) (string-match "\n" value))) ;; (create-buffer (pp value))) -(defun ee-fields-edit-field-in-buffer (&optional arg) +(defun ee-fields-edit-field-in-buffer (&optional _arg) (interactive) ;; TODO: instead of gnus-edit-form make generic functions and modes ;; for editing strings and sexps in the separate buffers (gnus-edit-form (ee-field 'value) "documentation" 'ee-fields-edit-field-in-buffer-done)) -(defun ee-fields-edit-field-in-buffer-done (new-value &optional arg) +(defun ee-fields-edit-field-in-buffer-done (new-value &optional _arg) (interactive) (let* ((r (ee-view-record-get)) (data-getters (ee-data-meta-getters-get-set ee-data)) @@ -90,7 +92,7 @@ (ee-view-buffer-update))) (ee-view-buffer-update t))) -(defun ee-fields-edit-field-in-minibuffer (&optional arg) +(defun ee-fields-edit-field-in-minibuffer (&optional _arg) (interactive) (let* ((r (ee-view-record-get)) (data-getters (ee-data-meta-getters-get-set ee-data)) @@ -126,7 +128,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-fields (&optional arg) +(defun ee-fields (&optional _arg) "Display and edit fields of the current record." (interactive "P") (if (eq major-mode 'ee-mode) diff --git a/ee-finder.el b/ee-finder.el index b0081e6..0126f9e 100755 --- a/ee-finder.el +++ b/ee-finder.el @@ -85,18 +85,18 @@ ((eq field-name 'synopsis) (nth 1 package)) ((eq field-name 'keywords) (nth 2 package)))) field-names)) - finder-package-info)))) + package--builtins)))) (aset new-data 0 (aref data 0)) new-data)) ;;; Actions -(defun ee-finder-select (&optional arg other-window) +(defun ee-finder-select (&optional _arg _other-window) (interactive) ;; TODO: find file (find-file (locate-library (ee-field 'file)))) -(defun ee-finder-commentary (&optional arg other-window) +(defun ee-finder-commentary (&optional _arg _other-window) "Display FILE's commentary section." (interactive) (finder-commentary (ee-field 'file))) @@ -123,7 +123,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-finder (&optional arg) +(defun ee-finder (&optional _arg) "Keyword-based Emacs code finder." (interactive "P") (require 'finder) @@ -33,6 +33,9 @@ (eval-when-compile (require 'gnus)) +(defvar gnus-topic-alist nil) +(defvar gnus-topic-topology nil) + ;;; Constants (defconst ee-gnus-mode-name "ee-gnus") @@ -89,7 +92,7 @@ ;;; Actions -(defun ee-gnus-execute (r marks) +(defun ee-gnus-execute (_r marks) (mapc (lambda (mark) (cond ((eq mark ee-mark-del) @@ -118,7 +121,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-gnus (&optional arg) +(defun ee-gnus (&optional _arg) "Summary and topic mode for Gnus." (interactive "P") (require 'gnus) diff --git a/ee-history.el b/ee-history.el index d2727d6..a69811e 100755 --- a/ee-history.el +++ b/ee-history.el @@ -31,7 +31,7 @@ (require 'ee) (eval-when-compile - (require 'cl)) + (require 'cl-lib)) ;;; Constants @@ -99,7 +99,7 @@ ;;; Actions -(defun ee-history-select (&optional arg) +(defun ee-history-select (&optional _arg) (let ((name (ee-field 'name)) (parent-buffer ee-parent-buffer) (type ee-history-type)) @@ -152,7 +152,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-history-command (&optional arg) +(defun ee-history-command (&optional _arg) "Display list from Emacs variable `command-history'." (interactive "P") (ee-view-buffer-create @@ -163,7 +163,7 @@ It inherits key bindings from `ee-mode-map'." (setq ee-history-type 'command)) ;;;###autoload -(defun ee-history-extended-command (&optional arg) +(defun ee-history-extended-command (&optional _arg) "Display list from Emacs variable `extended-command-history'." (interactive "P") (ee-view-buffer-create @@ -174,7 +174,7 @@ It inherits key bindings from `ee-mode-map'." (setq ee-history-type 'extended-command)) ;;;###autoload -(defun ee-history-shell-command (&optional arg) +(defun ee-history-shell-command (&optional _arg) "Display list from Emacs variable `shell-command-history'." (interactive "P") (ee-view-buffer-create diff --git a/ee-imenu.el b/ee-imenu.el index e580c66..646652c 100755 --- a/ee-imenu.el +++ b/ee-imenu.el @@ -74,7 +74,7 @@ (if old-data (ee-data-records-do new-data - (lambda (r ri) + (lambda (r _ri) (if (member (ee-field 'name r) old-data) (ee-field-set 'read t r (ee-data-meta-setters-get-set new-data)))))) new-data)) @@ -105,7 +105,7 @@ ;;; Actions -(defun ee-imenu-switch-to-buffer (&optional arg other-window) +(defun ee-imenu-switch-to-buffer (&optional _arg other-window) (interactive) (let ((marker (ee-field 'position-marker)) (parent-buffer ee-parent-buffer)) @@ -132,7 +132,7 @@ (interactive) (ee-imenu-switch-to-buffer arg 'display)) -(defun ee-imenu-execute (r marks) +(defun ee-imenu-execute (_r _marks) ;; TODO: delete referenced region from parent buffer ) @@ -157,7 +157,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-imenu (&optional arg) +(defun ee-imenu (&optional _arg) "Categorized mode-specific buffer indexes." (interactive "P") (require 'imenu) @@ -66,6 +66,14 @@ (eval-when-compile (require 'info)) +(declare-function Info-build-toc "info" (&rest args)) +(declare-function Info-extract-menu-node-name "info" (&rest args)) +(declare-function Info-find-file "info" (&rest args)) +(declare-function Info-find-node "info" (&rest args)) +(declare-function Info-following-node-name "info" (&rest args)) +(declare-function Info-insert-dir "info" (&rest args)) +(declare-function info-insert-file-contents "info" (&rest args)) + ;;; Constants ;; Name "ee-info" (the same as next variable) is better than "ee-info-dir" @@ -191,12 +199,12 @@ Output: [[title filename nodename dir-section info-dir-section] ...] ;;; Actions -(defun ee-info-dir-ee-info (&optional arg) +(defun ee-info-dir-ee-info (&optional _arg) (interactive) (let ((filename (ee-field 'filename))) (and filename (ee-info filename)))) -(defun ee-info-dir-find-node (&optional arg) +(defun ee-info-dir-find-node (&optional _arg) (let* ((r (ee-view-record-get)) (filename (ee-field 'filename)) (nodename (ee-field 'nodename))) @@ -329,7 +337,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Actions -(defun ee-info-find-node (&optional arg other-window) +(defun ee-info-find-node (&optional _arg other-window) (interactive) (let ((nodename (ee-field 'nodename)) ;; Set ee-info-file to info-file, because buffer-local diff --git a/ee-marks.el b/ee-marks.el index d636ede..7559d21 100755 --- a/ee-marks.el +++ b/ee-marks.el @@ -93,7 +93,7 @@ ;;; Actions -(defun ee-marks-switch-to-buffer (&optional arg other-window) +(defun ee-marks-switch-to-buffer (&optional _arg other-window) (interactive) (let ((parent-buffer ee-parent-buffer) (line-number (ee-field 'line-number))) @@ -103,7 +103,7 @@ (split-window-horizontally)) (select-window (next-window))) (switch-to-buffer parent-buffer) - (goto-line line-number) + (with-no-warnings (goto-line line-number)) ;; if only display other window, then return back to view buffer (if (eq other-window 'display) (select-window (next-window)))))) @@ -116,7 +116,7 @@ (interactive) (ee-marks-switch-to-buffer arg 'display)) -(defun ee-marks-execute (r marks) +(defun ee-marks-execute (_r _marks) ;; TODO: delete mark from mark-ring? ) @@ -141,7 +141,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-marks (&optional arg) +(defun ee-marks (&optional _arg) "Display and go to marked lines in the current Emacs buffer." (interactive "P") (ee-view-buffer-create diff --git a/ee-menubar.el b/ee-menubar.el index f2aacb7..b055afe 100755 --- a/ee-menubar.el +++ b/ee-menubar.el @@ -38,6 +38,8 @@ (eval-when-compile (require 'tmm nil t)) +(declare-function tmm-get-keybind "tmm" (&rest args)) + ;;; Constants (defconst ee-menubar-mode-name "ee-menubar") @@ -82,7 +84,7 @@ (if old-data (ee-data-records-do new-data - (lambda (r ri) + (lambda (r _ri) (if (member (ee-field 'name r) old-data) (ee-field-set 'read t r (ee-data-meta-setters-get-set new-data)))))) new-data)) @@ -117,7 +119,7 @@ (reverse (cdr menu))))) ;; this is the same as ee-outline-c-tree-builder - TODO: make generic function -(defun ee-menubar-c-tree-builder (&optional record-index) +(defun ee-menubar-c-tree-builder (&optional _record-index) ;; input: [[level1 "name1" apos1 bpos1] [level2 "name2" apos2 bpos2] ...] ;; output: (1 (2 ...) ...) ;; with assumption that order of input vector elements corresponds to tree pre-order @@ -131,19 +133,19 @@ (let* ((elt-level (ee-field 'level r)) (diff (- elt-level level))) (if (> diff 0) - (dotimes (i (- diff 1)) (insert "(nil ")) - (dotimes (i (+ (abs diff) 1)) (insert ")"))) + (dotimes (_i (- diff 1)) (insert "(nil ")) + (dotimes (_i (+ (abs diff) 1)) (insert ")"))) (insert "(") (insert (format "%s" ri)) (setq level elt-level)))) - (dotimes (i (+ level 1)) (insert ")")) + (dotimes (_i (+ level 1)) (insert ")")) (insert ")") (goto-char (point-min)) (read (current-buffer))))) ;;; Actions -(defun ee-menubar-select (&optional arg) +(defun ee-menubar-select (&optional _arg) (interactive) (if (ee-view-on-expansion-line-p) (ee-view-expansion-show-or-hide) @@ -155,7 +157,7 @@ (switch-to-buffer parent-buffer) (call-interactively command ee-menubar-record-flag))))) -(defun ee-menubar-execute (r marks) +(defun ee-menubar-execute (_r _marks) (interactive)) ;;; Key Bindings @@ -178,7 +180,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-menubar (&optional arg) +(defun ee-menubar (&optional _arg) "Categorized access to Emacs menu-bar." (interactive "P") (require 'tmm) diff --git a/ee-outline.el b/ee-outline.el index c850175..5b47efe 100755 --- a/ee-outline.el +++ b/ee-outline.el @@ -38,6 +38,10 @@ (eval-when-compile (require 'outline)) +(declare-function outline-next-heading "outline" (&rest args)) +(declare-function outline-end-of-heading "outline" (&rest args)) +(declare-function outline-on-heading-p "outline" (&rest args)) + ;;; Constants (defconst ee-outline-mode-name "ee-outline") @@ -114,7 +118,7 @@ (nreverse res)))) ;; this is the same as ee-menubar-c-tree-builder - TODO: make generic function -(defun ee-outline-c-tree-builder (&optional record-index) +(defun ee-outline-c-tree-builder (&optional _record-index) ;; input: [[level1 "name1" apos1 bpos1] [level2 "name2" apos2 bpos2] ...] ;; output: (1 (2 ...) ...) ;; with assumption that order of input vector elements corresponds to tree pre-order @@ -129,19 +133,19 @@ (let* ((elt-level (ee-field 'level r)) (diff (- elt-level level))) (if (> diff 0) - (dotimes (i (- diff 1)) (insert "(nil ")) - (dotimes (i (+ (abs diff) 1)) (insert ")"))) + (dotimes (_i (- diff 1)) (insert "(nil ")) + (dotimes (_i (+ (abs diff) 1)) (insert ")"))) (insert "(") (insert (format "%s" ri)) (setq level elt-level)))) - (dotimes (i (+ level 1)) (insert ")")) + (dotimes (_i (+ level 1)) (insert ")")) (insert ")") (goto-char (point-min)) (read (current-buffer))))) ;;; Actions -(defun ee-outline-switch-to-buffer (&optional arg other-window) +(defun ee-outline-switch-to-buffer (&optional _arg other-window) (interactive) (let ((b (ee-field 'b)) (parent-buffer ee-parent-buffer)) @@ -167,7 +171,7 @@ (ee-outline-switch-to-buffer arg 'display)) ;; TODO: use arg other-window and bind to some key ("r"?) -(defun ee-outline-switch-to-buffer-narrow-to-region (&optional other-window) +(defun ee-outline-switch-to-buffer-narrow-to-region (&optional _other-window) (interactive) (let* ((r (ee-view-record-get)) (b (ee-field 'b r)) @@ -179,7 +183,7 @@ (set-window-start (display-buffer ee-parent-buffer) b)))) ;; TODO: use arg other-window and bind to some key (C-???) -(defun ee-outline-switch-to-buffer-mark-region (&optional other-window) +(defun ee-outline-switch-to-buffer-mark-region (&optional _other-window) (interactive) (let* ((r (ee-view-record-get)) (b (ee-field 'b r)) @@ -210,7 +214,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-outline (&optional arg) +(defun ee-outline (&optional _arg) "Manipulate outlines collected from outline-mode." (interactive "P") (require 'outline) diff --git a/ee-processes.el b/ee-processes.el index b771b88..7a49a52 100755 --- a/ee-processes.el +++ b/ee-processes.el @@ -88,7 +88,7 @@ ;;; Actions -(defun ee-processes-select (&optional arg other-window) +(defun ee-processes-select (&optional _arg _other-window) (interactive) (switch-to-buffer (ee-field 'buffer))) @@ -121,7 +121,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-processes (&optional arg) +(defun ee-processes (&optional _arg) "Display and manipulate Emacs processes." (interactive "P") (ee-view-buffer-create diff --git a/ee-programs.el b/ee-programs.el index 6adb186..9c5e235 100755 --- a/ee-programs.el +++ b/ee-programs.el @@ -180,7 +180,7 @@ ;;; Actions -(defun ee-programs-start-process (&optional arg) +(defun ee-programs-start-process (&optional _arg) (interactive) (ee-field-set 'read t) (ee-view-update '(read)) ;; (ee-view-record-update) @@ -225,7 +225,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-programs (&optional arg) +(defun ee-programs (&optional _arg) "Categorized program menu." (interactive "P") (ee-view-buffer-create @@ -139,7 +139,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-ps (&optional arg) +(defun ee-ps (&optional _arg) "Display CPU processes." (interactive "P") (ee-view-buffer-create @@ -33,6 +33,10 @@ (eval-when-compile (require 'etags)) +(declare-function etags-goto-tag-location "etags" (&rest args)) +(declare-function etags-snarf-tag "etags" (&rest args)) +(declare-function etags-tags-table-files "etags" (&rest args)) + ;;; Constants (defconst ee-tags-mode-name "ee-tags") @@ -80,7 +84,7 @@ (if old-data (ee-data-records-do new-data - (lambda (r ri) + (lambda (r _ri) (if (member (ee-field 'tag r) old-data) (ee-field-set 'read t r (ee-data-meta-setters-get-set new-data)))))) new-data)) @@ -113,7 +117,7 @@ ;;; Actions ;; TODO: take hair from `find-tag-other-window' -(defun ee-tags-select (&optional arg other-window) +(defun ee-tags-select (&optional _arg _other-window) (interactive) (ee-field-set 'read t) (ee-view-update '(read)) ;; (ee-view-record-update) @@ -147,7 +151,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-tags (&optional arg) +(defun ee-tags (&optional _arg) "Etags facility." (interactive "P") (require 'etags) diff --git a/ee-textfile.el b/ee-textfile.el index 40531d7..31c5e15 100755 --- a/ee-textfile.el +++ b/ee-textfile.el @@ -117,7 +117,7 @@ (let* ((field-names (ee-data-field-names data)) (new-data (ee-data-convert-lists-to-vectors - (let (res date name email file) + (let (res date name email _file) (with-current-buffer ee-parent-buffer (save-excursion (save-restriction @@ -137,8 +137,7 @@ email (match-string-no-properties 2)))) ((looking-at ee-textfile-changelog-file-regexp) (mapc (lambda (elt) - (setq file elt - res (cons + (setq res (cons (mapcar (lambda (field-name) (cond ((eq field-name 'date) date) @@ -199,7 +198,7 @@ ;;; Actions -(defun ee-textfile-changelog-select (&optional arg other-window) +(defun ee-textfile-changelog-select (&optional _arg other-window) (interactive) (let* ((data-getters (ee-data-meta-getters-get-set ee-data)) (r (ee-view-record-get)) @@ -226,7 +225,7 @@ (interactive) (ee-textfile-changelog-select arg 'display)) -(defun ee-textfile-execute (r marks) +(defun ee-textfile-execute (_r _marks) (interactive) ) @@ -267,7 +266,7 @@ It inherits key bindings from `ee-textfile-keymap'." ;;; Top-Level Functions ;;;###autoload -(defun ee-textfile-changelog (&optional arg) +(defun ee-textfile-changelog (&optional _arg) "Organize information from ChangeLog files." (interactive "P") (require 'add-log) @@ -278,7 +277,7 @@ It inherits key bindings from `ee-textfile-keymap'." ee-textfile-changelog-data)) ;;;###autoload -(defun ee-textfile-apachelog (&optional arg) +(defun ee-textfile-apachelog (&optional _arg) "Organize information from Apache log files." (interactive "P") (ee-view-buffer-create diff --git a/ee-variables.el b/ee-variables.el index 90dacce..0723981 100755 --- a/ee-variables.el +++ b/ee-variables.el @@ -82,7 +82,7 @@ ;;; Actions -(defun ee-variables-call-interactively (&optional arg) +(defun ee-variables-call-interactively (&optional _arg) (interactive) (describe-variable (ee-field 'variable))) @@ -106,7 +106,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-variables (&optional arg) +(defun ee-variables (&optional _arg) "Categorized menu of Emacs variables." (interactive "P") (ee-view-buffer-create diff --git a/ee-views.el b/ee-views.el index 64b96c1..a3b5c68 100755 --- a/ee-views.el +++ b/ee-views.el @@ -56,23 +56,23 @@ ;;; Data Extraction -(defun ee-views-data-collect (data) +(defun ee-views-data-collect (_data) (with-current-buffer ee-parent-buffer ee-view-data)) ;;; Actions -(defun ee-views-switch-to-buffer (&optional arg) +(defun ee-views-switch-to-buffer (&optional _arg) (interactive) (let ((setters (ee-data-meta-setters-get-set ee-data))) ;; Change default view (ee-data-records-do ee-data - (lambda (r i) + (lambda (r _i) (ee-data-field-set 'default nil r setters))) (ee-data-field-set 'default t (ee-view-record-get) setters)) (switch-to-buffer ee-parent-buffer) - (let ((data-getters (ee-data-meta-getters-get-set ee-data))) + (let ((_data-getters (ee-data-meta-getters-get-set ee-data))) (ee-view-buffer-update))) ;;; Key Bindings @@ -95,7 +95,7 @@ It inherits key bindings from `ee-mode-map'." ;;; Top-Level Functions ;;;###autoload -(defun ee-views (&optional arg) +(defun ee-views (&optional _arg) "Display, edit and switch views." (interactive "P") (if (eq major-mode 'ee-mode) diff --git a/ee-windows.el b/ee-windows.el index f3ce57e..d60f04b 100755 --- a/ee-windows.el +++ b/ee-windows.el @@ -59,13 +59,13 @@ ;;; Data Extraction -(defun ee-windows-data-collect (data) +(defun ee-windows-data-collect (_data) ;; Returns global data value as is ee-windows-data) ;;; Actions -(defun ee-windows-select (&optional arg) +(defun ee-windows-select (&optional _arg) (interactive) (let ((wc (ee-field 'window-configuration)) (bl (delq nil (mapcar (lambda (b) (and (buffer-live-p b) b)) @@ -76,7 +76,7 @@ (modify-frame-parameters (selected-frame) (list (cons 'buried-buffer-list bbl))) (set-window-configuration wc))) -(defun ee-windows-select-and-delete-current (&optional arg) +(defun ee-windows-select-and-delete-current (&optional _arg) (interactive) (let ((wc (ee-field 'window-configuration)) (bl (delq nil (mapcar (lambda (b) (and (buffer-live-p b) b)) @@ -91,7 +91,7 @@ (modify-frame-parameters (selected-frame) (list (cons 'buried-buffer-list bbl))) (set-window-configuration wc))) -(defun ee-windows-execute (r marks) +(defun ee-windows-execute (_r _marks) (interactive) ;; TODO: make general function in ee.el ;; to delete empty rows (rows with nil values) @@ -156,7 +156,7 @@ It inherits key bindings from `ee-mode-map'." ) ;;;###autoload -(defun ee-windows (&optional arg) +(defun ee-windows (&optional _arg) "Display and switch Emacs window configurations." (interactive "P") (ee-view-buffer-create @@ -61,8 +61,8 @@ and searched to read when relative filename is given." (defcustom ee-data-file-save-format 'records "Format used in the saved data files. -If 'pp, then save data to the file pretty-printed. -If 'records, then save every record on own line. +If \\='pp, then save data to the file pretty-printed. +If \\='records, then save every record on own line. If nil, then save unformatted." :type 'symbol :group 'ee) @@ -919,7 +919,7 @@ and separates element of new list by value of variable ;; NOT USED currently, because sort is done simultaneously with print (defun ee-gen-r-tree-sort (atree a-level r-level r-sorter) - (let ((head (if (consp atree) (car atree) atree)) + (let ((_head (if (consp atree) (car atree) atree)) (tail (if (consp atree) (cdr atree))) ; (attr-alist (if (consp atree) (assq ee-mark-attr-alist atree))) ) @@ -989,36 +989,36 @@ and separates element of new list by value of variable ;; c-printer: category exapansion line printer -(defun ee-c-printer-1 (a-level c-level s-level header) +(defun ee-c-printer-1 (a-level _c-level _s-level header) (insert (make-string a-level ?\040) "- " header)) -(defun ee-c-printer-2 (a-level c-level s-level header) +(defun ee-c-printer-2 (a-level _c-level _s-level header) (insert (make-string (* 2 a-level) ?\040) "- " header)) -(defun ee-c-printer-1-1 (a-level c-level s-level header) +(defun ee-c-printer-1-1 (a-level _c-level _s-level header) (insert (make-string (1- a-level) ?\040) "- " header)) -(defun ee-c-printer-2-1 (a-level c-level s-level header) +(defun ee-c-printer-2-1 (a-level _c-level _s-level header) (insert (make-string (* 2 (1- a-level)) ?\040) "- " header)) -(defun ee-c-printer-1-faces (a-level c-level s-level header) +(defun ee-c-printer-1-faces (a-level c-level _s-level header) (let ((b (point)) - (face )) + (_face )) (insert (make-string a-level ?\040) "- " header) (if (< c-level (length ee-c-faces)) (add-text-properties b (point) (list 'face (aref ee-c-faces c-level)))))) -(defun ee-c-printer-2-faces (a-level c-level s-level header) +(defun ee-c-printer-2-faces (a-level c-level _s-level header) (let ((b (point))) (insert (make-string (* 2 a-level) ?\040) "- " header) (add-text-properties b (point) (list 'face (aref ee-c-faces c-level))))) -(defun ee-c-printer-1-1-faces (a-level c-level s-level header) +(defun ee-c-printer-1-1-faces (a-level c-level _s-level header) (let ((b (point))) (insert (make-string (1- a-level) ?\040) "- " header) (add-text-properties b (point) (list 'face (aref ee-c-faces c-level))))) -(defun ee-c-printer-2-1-faces (a-level c-level s-level header) +(defun ee-c-printer-2-1-faces (a-level c-level _s-level header) (let ((b (point))) (insert (make-string (* 2 (1- a-level)) ?\040) "- " header) (add-text-properties b (point) (list 'face (aref ee-c-faces c-level))))) @@ -1045,12 +1045,12 @@ The test for presence of key of AELEMENT is done with `assoc'. If AELEMENT is added, it is added at the beginning of the alist, unless the optional argument APPEND is non-nil, in which case AELEMENT is added at the end. -Examples: (setq trees '((oak . acorns) (maple . seeds))) - (add-to-alist 'trees '(pine . cones)) +Examples: (setq trees \\='((oak . acorns) (maple . seeds))) + (add-to-alist \\='trees \\='(pine . cones)) => ((pine . cones) (oak . acorns) (maple . seeds)) - (add-to-alist 'trees '(pine . pineapple)) + (add-to-alist \\='trees \\='(pine . pineapple)) => ((pine . pineapple) (oak . acorns) (maple . seeds)) - (add-to-alist 'trees '(pine . nil)) + (add-to-alist \\='trees \\='(pine . nil)) => ((oak . acorns) (maple . seeds)) If you want to use `add-to-alist' on a variable that is not defined @@ -1290,12 +1290,12 @@ with name `field-name' is equal to `field-value'." "Find all records from `data' using `condition' in the format (field-name . field-value) where value of field with name `field-name' is equal to `field-value'." - (let ((condition-type (if (consp (cdr condition)) (car condition))) + (let ((_condition-type (if (consp (cdr condition)) (car condition))) (field-name (car condition)) (field-value (cdr condition)) (data-getters (or getters (ee-data-meta-getters-get-set data))) - (len (length data)) - (ri 1) + (_len (length data)) + (_ri 1) res) (ee-data-records-do data @@ -1459,7 +1459,7 @@ with name `field-name' is equal to `field-value'." (pp (aref data 0) (current-buffer)) (ee-data-records-do data - (lambda (r ri) + (lambda (r _ri) (prin1 r (current-buffer)) (princ "\n" (current-buffer)))) (princ "]" (current-buffer))) @@ -1587,7 +1587,7 @@ with name `field-name' is equal to `field-value'." (ee-view-expansion-show-or-hide-region (overlay-start e) (overlay-end e))))) -(defun ee-view-expansion-show-children (&optional level) +(defun ee-view-expansion-show-children (&optional _level) "Shows own children up to level, but hides children expansions." (interactive) ;; TODO: implement it @@ -1623,7 +1623,7 @@ with name `field-name' is equal to `field-value'." (if (and (ee-view-on-expansion-line-p) (ee-view-expansion-visible-p)) (ee-view-expansion-hide)) - (or (bobp) (previous-line 1)) ; previous-line to ignore invisible lines + (or (bobp) (with-no-warnings (previous-line 1))) ; previous-line to ignore invisible lines )) (ee-view-key-restore) ;; (ee-view-expansion-prev) @@ -1706,16 +1706,16 @@ with name `field-name' is equal to `field-value'." With argument, repeats or can move backward if negative." (interactive "p") (while (and (not (bobp)) (< arg 0)) - (previous-line 1) ; previous-line to ignore invisible lines + (with-no-warnings (previous-line 1)) ; previous-line to ignore invisible lines (while (and (not (bobp)) (not (ee-view-on-expansion-line-p))) - (previous-line 1)) + (with-no-warnings (previous-line 1))) (setq arg (1+ arg))) (while (and (not (eobp)) (> arg 0)) - (next-line 1) ; next-line to ignore invisible lines + (with-no-warnings (next-line 1)) ; next-line to ignore invisible lines (while (and (not (eobp)) (not (ee-view-on-expansion-line-p))) - (next-line 1)) + (with-no-warnings (next-line 1))) (setq arg (1- arg))) (run-hooks 'ee-view-goto-hook)) @@ -1787,7 +1787,7 @@ With argument, move up ARG levels." ;; (fset 'ee-view-record-current 'ee-view-record-get) ;; TODO: rename to ...-clone -(defun ee-view-record-copy (&optional point) +(defun ee-view-record-copy (&optional _point) (interactive) (setq ee-data (vconcat ee-data (list (ee-view-record-get)))) (ee-view-buffer-update)) @@ -1810,30 +1810,30 @@ With argument, move up ARG levels." (ee-view-record-next)) (run-hooks 'ee-view-goto-hook)) -(defun ee-view-record-next (&optional arg) +(defun ee-view-record-next (&optional _arg) ;; TODO: use arg (interactive) ;; (message "1:[%s]" (line-number-at-pos (point))) (when (not (eobp)) ;; (message "!1:[%s]" (eobp)) - (next-line 1) ; next-line to ignore invisible lines + (with-no-warnings (next-line 1)) ; next-line to ignore invisible lines ;; (message "!2:[%s]" (eobp)) (while (not (or (ee-view-on-record-line-p) (eobp))) ;; (message "?:[%s]" (eolp)) - (next-line 1))) + (with-no-warnings (next-line 1)))) ;; (message "2:[%s]" (line-number-at-pos (point))) (run-hooks 'ee-view-goto-hook)) -(defun ee-view-record-next-with (fun &optional arg) +(defun ee-view-record-next-with (fun &optional _arg) ;; TODO: use arg (interactive) (when (and fun (not (eobp))) - (next-line 1) ; next-line to ignore invisible lines + (with-no-warnings (next-line 1)) ; next-line to ignore invisible lines (while (not (or (and (ee-view-on-record-line-p) (funcall fun)) (eobp))) - (next-line 1))) + (with-no-warnings (next-line 1)))) (run-hooks 'ee-view-goto-hook)) -(defun ee-view-record-next-or-first (arg) +(defun ee-view-record-next-or-first (_arg) ;; TODO: implement it ) @@ -1845,16 +1845,16 @@ With argument, move up ARG levels." ;; TODO: implement it ) -(defun ee-view-record-prev (&optional arg) +(defun ee-view-record-prev (&optional _arg) ;; TODO: use arg (interactive) (when (not (bobp)) - (previous-line 1) ; previous-line to ignore invisible lines + (with-no-warnings (previous-line 1)) ; previous-line to ignore invisible lines (while (not (or (ee-view-on-record-line-p) (bobp))) - (previous-line 1))) + (with-no-warnings (previous-line 1)))) (run-hooks 'ee-view-goto-hook)) -(defun ee-view-record-with (function) +(defun ee-view-record-with (_function) ;; e.g. (ee-view-record-with (lambda () (ee-data-field-get 'unread))) ) @@ -1987,7 +1987,7 @@ Advances point." (or to (setq to (point-max))) (save-excursion (goto-char from) - (let ((setters (ee-data-meta-setters-get-set ee-data))) + (let ((_setters (ee-data-meta-setters-get-set ee-data))) (while (< (point) to) ;;(not (eobp)) (when (ee-view-on-record-line-p) ;;(ee-data-field-set mark-field-name mark-field-value (ee-view-record-get) setters) @@ -2211,7 +2211,7 @@ and then move up one line. Prefix arg means move that many lines." (revert-buffer) (message "No revert function is associated with this buffer."))) -(defun ee-view-buffer-revert-function-default (ignore1 ignore2) +(defun ee-view-buffer-revert-function-default (_ignore1 _ignore2) "Default revert buffer function." (ee-view-buffer-update 'collect)) @@ -2334,7 +2334,7 @@ and released on expansion line, then no action is performed." (nreverse host))) ;; TODO: move next function to view/links.ee -(defun ee-links-select (&optional arg) +(defun ee-links-select (&optional _arg) (interactive) (cond ((ee-data-field-get 'command) @@ -2371,8 +2371,7 @@ and released on expansion line, then no action is performed." "Apply FUNCTION to each element of SEQUENCE for side effects only. Unlike `mapcar', don't accumulate the results. Return SEQUENCE. SEQUENCE may be a list, a vector, a bool-vector, or a string." - (mapcar function sequence) - sequence)) + (mapcar function sequence))) (or (fboundp 'ignore-errors) (defmacro ignore-errors (&rest body) @@ -2460,6 +2459,8 @@ With one argument, just copy STRING without its properties." ;;; Display and call the available ee extensions +(declare-function ee-datafile "ee-datafile" (&rest args)) + ;;;###autoload (defun ee (&optional file) "Enter top-level index of all available ee extensions. |