Commit 9d3aa82c authored by Juanma Barranquero's avatar Juanma Barranquero

lisp/*.el: Silence lexical-binding warnings.

parent 919a9575
2013-08-08 Juanma Barranquero <lekktu@gmail.com>
* allout-widgets.el (allout-widgets-pre-command-business)
(allout-widgets-post-command-business)
(allout-widgets-after-change-handler)
(allout-decorate-item-and-context, allout-set-boundary-marker)
(allout-body-modification-handler)
(allout-graphics-modification-handler): Mark ignored arguments.
(allout-widgets-post-command-business)
(allout-widgets-exposure-change-processor)
(allout-widgets-exposure-undo-processor)
(allout-decorate-item-and-context, allout-redecorate-visible-subtree)
(allout-parse-item-at-point, allout-decorate-item-guides)
(allout-decorate-item-cue, allout-item-span): Remove unused variables.
* allout.el (epa-passphrase-callback-function): Declare.
(allout-overlay-insert-in-front-handler)
(allout-overlay-interior-modification-handler)
(allout-isearch-end-handler, allout-chart-siblings)
(allout-up-current-level, allout-end-of-level, allout-reindent-body)
(allout-yank-processing, allout-process-exposed)
(allout-latex-verb-quote, allout-latexify-one-item, outlineify-sticky)
(allout-latex-verbatim-quote-curr-line): Removed unused variables.
* emacs-lisp/lisp-mode.el (lisp-eval-defun, last-sexp-toggle-display)
(lisp-indent-defform): Mark ignored arguments.
(lisp-indent-line): Mark ignored arguments. Remove unused variables.
(calculate-lisp-indent): Remove unused variables.
* international/characters.el (indian-2-column, arabic-2-column)
(tibetan): Mark ignored arguments.
(use-cjk-char-width-table): Mark ignored arguments.
Remove unused variables.
* international/fontset.el (build-default-fontset-data)
(x-compose-font-name, create-fontset-from-fontset-spec):
Mark ignored arguments.
(fontset-plain-name): Remove unused variables.
* international/mule.el (charset-id, charset-bytes, generic-char-p)
(keyboard-coding-system): Mark ignored arguments.
(find-auto-coding): Remove unused variables. Use `ignore-errors'.
* help.el (resize-temp-buffer-window):
* window.el (display-buffer-in-major-side-window)
(display-buffer-in-side-window, display-buffer-in-previous-window):
Remove unused variables.
* isearch.el (isearch-forward-symbol):
* version.el (emacs-bzr-version-bzr):
* international/mule-cmds.el (current-language-environment):
* term/common-win.el (x-handle-iconic, x-handle-geometry)
(x-handle-display):
* term/pc-win.el (x-list-fonts, x-display-planes)
(x-display-color-cells, x-server-max-request-size, x-server-vendor)
(x-server-version, x-display-screens, x-display-mm-height)
(x-display-mm-width, x-display-backing-store, x-display-visual-class)
(x-selection-owner-p, x-own-selection-internal)
(x-disown-selection-internal, x-get-selection-internal)
(msdos-initialize-window-system):
* term/tty-colors.el (tty-color-alist, tty-color-clear):
* term/x-win.el (x-handle-no-bitmap-icon):
* vc/vc-hooks.el (vc-mode, vc-default-make-version-backups-p)
(vc-default-find-file-hook, vc-default-extra-menu):
Mark ignored arguments.
2013-08-08 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/edebug.el (edebug-debugger): Use edebug-eval to run the
......
......@@ -720,17 +720,17 @@ icon/bullet.")
;;;_ . Hooks and hook helpers
;;;_ , major command-loop business:
;;;_ > allout-widgets-pre-command-business (&optional recursing)
(defun allout-widgets-pre-command-business (&optional recursing)
(defun allout-widgets-pre-command-business (&optional _recursing)
"Handle actions pending before `allout-mode' activity."
)
;;;_ > allout-widgets-post-command-business (&optional recursing)
(defun allout-widgets-post-command-business (&optional recursing)
(defun allout-widgets-post-command-business (&optional _recursing)
"Handle actions pending after any `allout-mode' commands.
Optional RECURSING is for internal use, to limit recursion."
;; - check changed text for nesting discontinuities and escape anything
;; that's: (1) asterisks at bol or (2) excessively nested.
(condition-case failure
(condition-case nil
(when (and (boundp 'allout-mode) allout-mode)
......@@ -811,7 +811,7 @@ Optional RECURSING is for internal use, to limit recursion."
(goto-char (widget-get this-widget :from))
(not (bolp)))
(if (not
(condition-case err
(condition-case nil
(yes-or-no-p
(concat "Misplaced item won't be recognizable "
" as part of outline - rectify? "))
......@@ -873,7 +873,7 @@ Optional RECURSING is for internal use, to limit recursion."
(error
(substitute-command-keys allout-structure-unruly-deletion-message)))))
;;;_ > allout-widgets-after-change-handler
(defun allout-widgets-after-change-handler (beg end prelength)
(defun allout-widgets-after-change-handler (_beg _end _prelength)
"Reconcile what needs to be reconciled for allout widgets after edits."
)
;;;_ > allout-current-decorated-p ()
......@@ -999,7 +999,6 @@ Generally invoked via `allout-exposure-change-functions'."
;; have to distinguish between concealing and exposing so that, eg,
;; `allout-expose-topic's mix is handled properly.
handled-expose
handled-conceal
covered
deactivate-mark)
......@@ -1188,7 +1187,7 @@ Dispatched by `allout-widgets-post-command-business' in response to
(let* ((allout-undo-exposure-in-progress t)
;; inhibit undo recording while twiddling exposure to track undo:
(widgets allout-widgets-undo-exposure-record)
widget widget-start-marker widget-end-marker
widget-start-marker widget-end-marker
from-state icon-start-point to-state
handled covered)
(setq allout-widgets-undo-exposure-record nil)
......@@ -1552,7 +1551,7 @@ recursive operation."
;;;_ > allout-decorate-item-and-context (item-widget &optional redecorate
;;; blank-container parent)
(defun allout-decorate-item-and-context (item-widget &optional redecorate
blank-container parent)
blank-container _parent)
"Create or adjust widget decorations for ITEM-WIDGET and neighbors at point.
The neighbors include its siblings and parent.
......@@ -1593,12 +1592,8 @@ We return the item-widget corresponding to the item at point."
steady-point))
(parent (and (not is-container)
(allout-get-or-create-parent-widget)))
parent-flags parent-depth
successor-sibling
body
doing-item
sub-item-widget
depth
reverse-siblings-chart
(buffer-undo-list t))
......@@ -1615,7 +1610,6 @@ We return the item-widget corresponding to the item at point."
;; `allout-goto-prefix' will go to first non-container item:
(allout-goto-prefix)
(allout-next-heading))
(setq depth (allout-recent-depth))
(setq reverse-siblings-chart (list allout-recent-prefix-beginning))
(while (allout-next-sibling)
(push allout-recent-prefix-beginning reverse-siblings-chart)))
......@@ -1702,7 +1696,6 @@ Point is left at the last sibling in the visible subtree."
(pending-chart (or chart (allout-chart-subtree nil 'visible)))
item-widget
previous-sibling-point
previous-sibling
recent-sibling-point)
(setq pending-chart (nreverse pending-chart))
(dolist (sibling-point pending-chart)
......@@ -1753,9 +1746,7 @@ may have subitems.)"
(icon-start (1- icon-end))
body-start
body-end
bullet
has-subitems
(contents-depth (1+ depth))
)
(widget-put item-widget :depth depth)
(if is-container
......@@ -1783,7 +1774,7 @@ may have subitems.)"
;; cue area:
(setq body-start icon-end)
(widget-put item-widget :bullet (setq bullet (allout-get-bullet)))
(widget-put item-widget :bullet (allout-get-bullet))
(if (equal (char-after body-start) ? )
(setq body-start (1+ body-start)))
(widget-put item-widget :body-start body-start)
......@@ -1809,7 +1800,7 @@ may have subitems.)"
;; has a subsequent item:
(not (= body-end (point-max)))
;; subsequent item is deeper:
(< depth (setq contents-depth (allout-recent-depth))))))
(< depth (allout-recent-depth)))))
;; note :expanded - true if widget item's content is currently visible?
(widget-put item-widget :expanded
(and has-subitems
......@@ -1818,7 +1809,7 @@ may have subitems.)"
(goto-char allout-recent-prefix-beginning)
(not (allout-hidden-p)))))))
;;;_ > allout-set-boundary-marker (boundary position &optional current-marker)
(defun allout-set-boundary-marker (boundary position &optional current-marker)
(defun allout-set-boundary-marker (_boundary position &optional current-marker)
"Set or create item widget BOUNDARY type marker at POSITION.
Optional CURRENT-MARKER is the marker currently being used for
......@@ -1872,8 +1863,8 @@ reapplying this method will rectify the glyphs."
(when (not (widget-get item-widget :is-container))
(let* ((depth (widget-get item-widget :depth))
(parent-depth (and parent-widget
(widget-get parent-widget :depth)))
;; (parent-depth (and parent-widget
;; (widget-get parent-widget :depth)))
(parent-flags (and parent-widget
(widget-get parent-widget :guide-column-flags)))
(parent-flags-depth (length parent-flags))
......@@ -1894,7 +1885,7 @@ reapplying this method will rectify the glyphs."
(increment (length allout-header-prefix))
reverse-flags
guide-name
extenders paint-extenders
extenders
(inhibit-read-only t))
(when (not (equal was-flags flags))
......@@ -2017,8 +2008,8 @@ reapplying this method will rectify the glyphs."
(let* ((cue-start (or (widget-get item-widget :distinctive-end)
(widget-get item-widget :icon-end)))
(body-start (widget-get item-widget :body-start))
(expanded (widget-get item-widget :expanded))
(has-subitems (widget-get item-widget :has-subitems))
;(expanded (widget-get item-widget :expanded))
;(has-subitems (widget-get item-widget :has-subitems))
(inhibit-read-only t))
(allout-item-element-span-is item-widget :cue-span cue-start body-start)
......@@ -2032,7 +2023,6 @@ Optional FORCE means force reassignment of the region property."
(let* ((allout-inhibit-body-modification-hook t)
(body-start (widget-get item-widget :body-start))
(body-end (widget-get item-widget :body-end))
(body-text-end body-end)
(inhibit-read-only t))
(allout-item-element-span-is item-widget :body-span
......@@ -2135,9 +2125,7 @@ of the current span, if established, or nil if not yet set.
When the START and END are passed, return the distance that the
start of the item moved. We return 0 if the span was not
previously established or is not moved."
(let ((overlay (widget-get item-widget :span-overlay))
was-start was-end
changed)
(let ((overlay (widget-get item-widget :span-overlay)))
(cond ((not overlay) (when start
(setq overlay (make-overlay start end nil t nil))
(overlay-put overlay 'button item-widget)
......@@ -2259,7 +2247,7 @@ of the buffer."
(allout-get-or-create-item-widget redecorate)))
;;;_ : X- Item ancillaries
;;;_ >X allout-body-modification-handler (beg end)
(defun allout-body-modification-handler (beg end)
(defun allout-body-modification-handler (_beg _end)
"Do routine processing of body text before and after modification.
Operation is inhibited by `allout-inhibit-body-modification-handler'."
......@@ -2281,7 +2269,7 @@ Operation is inhibited by `allout-inhibit-body-modification-handler'."
;; operation.
(cond (allout-inhibit-body-modification-hook nil)))
;;;_ >X allout-graphics-modification-handler (beg end)
(defun allout-graphics-modification-handler (beg end)
(defun allout-graphics-modification-handler (beg _end)
"Protect against incoherent deletion of decoration graphics.
Deletes allowed only when `inhibit-read-only' is t."
......
......@@ -74,6 +74,9 @@
;;; Code:
(declare-function epa-passphrase-callback-function
"epa" (context key-id handback))
;;;_* Dependency loads
(require 'overlay)
(eval-when-compile
......@@ -2121,8 +2124,8 @@ OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be."
;;;_ > allout-overlay-insert-in-front-handler (ol after beg end
;;; &optional prelen)
(defun allout-overlay-insert-in-front-handler (ol after beg end
&optional prelen)
(defun allout-overlay-insert-in-front-handler (ol after beg _end
&optional _prelen)
"Shift the overlay so stuff inserted in front of it is excluded."
(if after
;; ??? Shouldn't moving the overlay should be unnecessary, if overlay
......@@ -2131,7 +2134,7 @@ OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be."
;;;_ > allout-overlay-interior-modification-handler (ol after beg end
;;; &optional prelen)
(defun allout-overlay-interior-modification-handler (ol after beg end
&optional prelen)
&optional _prelen)
"Get confirmation before making arbitrary changes to invisible text.
We expose the invisible text and ask for confirmation. Refusal or
......@@ -2194,7 +2197,7 @@ See `allout-overlay-interior-modification-handler' for details."
(allout-overlay-interior-modification-handler
overlay nil beg end nil))))))
;;;_ > allout-isearch-end-handler (&optional overlay)
(defun allout-isearch-end-handler (&optional overlay)
(defun allout-isearch-end-handler (&optional _overlay)
"Reconcile allout outline exposure on arriving in hidden text after isearch.
Optional OVERLAY parameter is for when this function is used by
......@@ -2733,7 +2736,7 @@ starting point, and PREV-DEPTH is depth of prior topic."
; and maybe not preferable.
))
;;;_ > allout-chart-siblings (&optional start end)
(defun allout-chart-siblings (&optional start end)
(defun allout-chart-siblings (&optional _start _end)
"Produce a list of locations of this and succeeding sibling topics.
Effectively a top-level chart of siblings. See `allout-chart-subtree'
for an explanation of charts."
......@@ -3051,7 +3054,7 @@ Returning depth if successful, nil if not."
nil))
)
;;;_ > allout-up-current-level (arg)
(defun allout-up-current-level (arg)
(defun allout-up-current-level (_arg)
"Move out ARG levels from current visible topic."
(interactive "p")
(let ((start-point (point)))
......@@ -3198,7 +3201,7 @@ Presumes point is at the start of a topic prefix."
"Go back to the first sibling at this level, visible or not."
(allout-end-of-level 'backward))
;;;_ > allout-end-of-level (&optional backward)
(defun allout-end-of-level (&optional backward)
(defun allout-end-of-level (&optional _backward)
"Go to the last sibling at this level, visible or not."
(let ((depth (allout-depth)))
......@@ -3930,7 +3933,7 @@ Maintains outline hanging topic indentation if
(if (or allout-former-auto-filler allout-use-hanging-indents)
(funcall use-auto-fill-function)))))
;;;_ > allout-reindent-body (old-depth new-depth &optional number)
(defun allout-reindent-body (old-depth new-depth &optional number)
(defun allout-reindent-body (old-depth new-depth &optional _number)
"Reindent body lines which were indented at OLD-DEPTH to NEW-DEPTH.
Optional arg NUMBER indicates numbering is being added, and it must
......@@ -4559,7 +4562,7 @@ Topic exposure is marked with text-properties, to be used by
(if next (goto-char next)))))
(set-buffer-modified-p was-modified))))
;;;_ > allout-yank-processing ()
(defun allout-yank-processing (&optional arg)
(defun allout-yank-processing (&optional _arg)
"Incidental allout-specific business to be done just after text yanks.
......@@ -5521,7 +5524,7 @@ header and body. The elements of that list are:
;;_ > allout-process-exposed (&optional func from to frombuf
;;; tobuf format)
(defun allout-process-exposed (&optional func from to frombuf tobuf
format start-num)
format _start-num)
"Map function on exposed parts of current topic; results to another buffer.
All args are options; default values itemized below.
......@@ -5685,7 +5688,7 @@ used verbatim."
;;;_ - LaTeX formatting
;;;_ > allout-latex-verb-quote (string &optional flow)
(defun allout-latex-verb-quote (string &optional flow)
(defun allout-latex-verb-quote (string &optional _flow)
"Return copy of STRING for literal reproduction across LaTeX processing.
Expresses the original characters (including carriage returns) of the
string across LaTeX processing."
......@@ -5706,7 +5709,7 @@ across LaTeX processing, within the context of a `verbatim'
environment. Leaves point at the end of the line."
(let ((inhibit-field-text-motion t))
(beginning-of-line)
(let ((beg (point))
(let (;(beg (point))
(end (point-at-eol)))
(save-match-data
(while (re-search-forward "\\\\"
......@@ -5790,7 +5793,7 @@ environment. Leaves point at the end of the line."
(set-buffer buffer)
(insert "\n\\end{document}\n"))
;;;_ > allout-latexify-one-item (depth prefix bullet text)
(defun allout-latexify-one-item (depth prefix bullet text)
(defun allout-latexify-one-item (depth _prefix bullet text)
"Insert LaTeX commands for formatting one outline item.
Args are the topics numeric DEPTH, the header PREFIX lead string, the
......@@ -6359,7 +6362,7 @@ save. See `allout-encrypt-unencrypted-on-saves' for more info."
;;;###autoload
(defalias 'outlinify-sticky 'outlineify-sticky)
;;;###autoload
(defun outlineify-sticky (&optional arg)
(defun outlineify-sticky (&optional _arg)
"Activate outline mode and establish file var so it is started subsequently.
See `allout-layout' and customization of `allout-auto-activation'
......
......@@ -575,7 +575,7 @@ if that value is non-nil."
(defalias 'common-lisp-mode 'lisp-mode)
;; This will do unless inf-lisp.el is loaded.
(defun lisp-eval-defun (&optional and-go)
(defun lisp-eval-defun (&optional _and-go)
"Send the current defun to the Lisp process made by \\[run-lisp]."
(interactive)
(error "Process lisp does not exist"))
......@@ -662,7 +662,7 @@ alternative printed representations that can be displayed."
printed-value)))))
(defun last-sexp-toggle-display (&optional arg)
(defun last-sexp-toggle-display (&optional _arg)
"Toggle between abbreviated and unabbreviated printed representations."
(interactive "P")
(save-restriction
......@@ -1002,12 +1002,12 @@ function is `common-lisp-indent-function'."
:type 'function
:group 'lisp)
(defun lisp-indent-line (&optional whole-exp)
(defun lisp-indent-line (&optional _whole-exp)
"Indent current line as Lisp code.
With argument, indent any additional lines of the same expression
rigidly along with this one."
(interactive "P")
(let ((indent (calculate-lisp-indent)) shift-amt end
(let ((indent (calculate-lisp-indent)) shift-amt
(pos (- (point-max) (point)))
(beg (progn (beginning-of-line) (point))))
(skip-chars-forward " \t")
......@@ -1047,7 +1047,7 @@ is the buffer position of the start of the containing expression."
(save-excursion
(beginning-of-line)
(let ((indent-point (point))
state paren-depth
state
;; setting this to a number inhibits calling hook
(desired-indent nil)
(retry t)
......@@ -1061,7 +1061,7 @@ is the buffer position of the start of the containing expression."
;; Find innermost containing sexp
(while (and retry
state
(> (setq paren-depth (elt state 0)) 0))
(> (elt state 0) 0))
(setq retry nil)
(setq calculate-lisp-indent-last-sexp (elt state 2))
(setq containing-sexp (elt state 1))
......@@ -1290,7 +1290,7 @@ Lisp function does not specify a special indentation."
body-indent
normal-indent))))
(defun lisp-indent-defform (state indent-point)
(defun lisp-indent-defform (state _indent-point)
(goto-char (car (cdr state)))
(forward-line 1)
(if (> (point) (car (cdr (cdr state))))
......
......@@ -1018,27 +1018,26 @@ smaller than `window-min-height'. Do nothing if WINDOW is not
vertically combined, some of its contents are scrolled out of
view, or WINDOW was not created by `display-buffer'."
(setq window (window-normalize-window window t))
(let ((buffer-name (buffer-name (window-buffer window))))
(let ((height (if (functionp temp-buffer-max-height)
(with-selected-window window
(funcall temp-buffer-max-height (window-buffer)))
temp-buffer-max-height))
(quit-cadr (cadr (window-parameter window 'quit-restore))))
(cond
;; Resize WINDOW iff it was split off by `display-buffer'.
((and (eq quit-cadr 'window)
(pos-visible-in-window-p (point-min) window)
(window-combined-p window))
(fit-window-to-buffer window height))
;; Resize FRAME iff it was created by `display-buffer'.
((and fit-frame-to-buffer
(eq quit-cadr 'frame)
(eq window (frame-root-window window)))
(let ((frame (window-frame window)))
(fit-frame-to-buffer
frame (+ (frame-height frame)
(- (window-total-size window))
height))))))))
(let ((height (if (functionp temp-buffer-max-height)
(with-selected-window window
(funcall temp-buffer-max-height (window-buffer)))
temp-buffer-max-height))
(quit-cadr (cadr (window-parameter window 'quit-restore))))
(cond
;; Resize WINDOW iff it was split off by `display-buffer'.
((and (eq quit-cadr 'window)
(pos-visible-in-window-p (point-min) window)
(window-combined-p window))
(fit-window-to-buffer window height))
;; Resize FRAME iff it was created by `display-buffer'.
((and fit-frame-to-buffer
(eq quit-cadr 'frame)
(eq window (frame-root-window window)))
(let ((frame (window-frame window)))
(fit-frame-to-buffer
frame (+ (frame-height frame)
(- (window-total-size window))
height)))))))
;;; Help windows.
(defcustom help-window-select 'other
......
......@@ -1078,10 +1078,10 @@ with L, LRE, or LRO Unicode bidi character type.")
;; (lambda (range ignore) (set-char-table-range char-width-table range 2))
;; 'tibetan)
(map-charset-chars
(lambda (range ignore) (set-char-table-range char-width-table range 2))
(lambda (range _ignore) (set-char-table-range char-width-table range 2))
'indian-2-column)
(map-charset-chars
(lambda (range ignore) (set-char-table-range char-width-table range 2))
(lambda (range _ignore) (set-char-table-range char-width-table range 2))
'arabic-2-column)
;; Internal use only.
......@@ -1110,8 +1110,7 @@ with L, LRE, or LRO Unicode bidi character type.")
(defun use-cjk-char-width-table (locale-name)
(while (char-table-parent char-width-table)
(setq char-width-table (char-table-parent char-width-table)))
(let ((slot (assq locale-name cjk-char-width-table-list))
table)
(let ((slot (assq locale-name cjk-char-width-table-list)))
(or slot (error "Unknown locale for CJK language environment: %s"
locale-name))
(unless (nth 1 slot)
......@@ -1119,7 +1118,7 @@ with L, LRE, or LRO Unicode bidi character type.")
(dolist (charset-info (nthcdr 2 slot))
(let ((charset (car charset-info)))
(dolist (code-range (cdr charset-info))
(map-charset-chars #'(lambda (range arg)
(map-charset-chars #'(lambda (range _arg)
(set-char-table-range table range 2))
charset nil
(car code-range) (cdr code-range)))))
......@@ -1326,7 +1325,7 @@ Setup char-width-table appropriate for non-CJK language environment."
(set-char-table-extra-slot char-script-table 0 (nreverse script-list)))
(map-charset-chars
#'(lambda (range ignore)
#'(lambda (range _ignore)
(set-char-table-range char-script-table range 'tibetan))
'tibetan)
......
......@@ -357,7 +357,7 @@
(dolist (elt cjk)
(let ((mask (lsh 1 i)))
(map-charset-chars
#'(lambda (range arg)
#'(lambda (range _arg)
(let ((from (car range)) (to (cdr range)))
(if (< to #x110000)
(while (<= from to)
......@@ -876,7 +876,7 @@ Return nil if PATTERN doesn't conform to XLFD."
(aset xlfd-fields i nil)))
xlfd-fields)))
(defun x-compose-font-name (fields &optional reduce)
(defun x-compose-font-name (fields &optional _reduce)
"Compose X fontname from FIELDS.
FIELDS is a vector of XLFD fields, of length 12.
If a field is nil, wild-card letter `*' is embedded.
......@@ -954,7 +954,7 @@ Done when `mouse-set-font' is called."
(let ((family (aref xlfd-fields xlfd-regexp-family-subnum))
(weight (aref xlfd-fields xlfd-regexp-weight-subnum))
(slant (aref xlfd-fields xlfd-regexp-slant-subnum))
(swidth (aref xlfd-fields xlfd-regexp-swidth-subnum))
;(swidth (aref xlfd-fields xlfd-regexp-swidth-subnum))
(size (aref xlfd-fields xlfd-regexp-pixelsize-subnum))
(nickname (aref xlfd-fields xlfd-regexp-registry-subnum))
name)
......@@ -1039,7 +1039,7 @@ This alist is used by the function `create-fontset-from-fontset-spec'
to map charsets to scripts.")
(defun create-fontset-from-fontset-spec (fontset-spec
&optional style-variant noerror)
&optional _style-variant _noerror)
"Create a fontset from fontset specification string FONTSET-SPEC.
FONTSET-SPEC is a string of the format:
FONTSET-NAME,SCRIPT-NAME0:FONT-NAME0,SCRIPT-NAME1:FONT-NAME1, ...
......
......@@ -1739,8 +1739,8 @@ This hook is mainly used for canceling the effect of
This variable should be set only with \\[customize], which is equivalent
to using the function `set-language-environment'."
:link '(custom-manual "(emacs)Language Environments")
:set (lambda (symbol value) (set-language-environment value))
:get (lambda (x)
:set (lambda (_symbol value) (set-language-environment value))
:get (lambda (_x)
(or (car-safe (assoc-string
(if (symbolp current-language-environment)
(symbol-name current-language-environment)
......
......@@ -407,12 +407,12 @@ PLIST (property list) may contain any type of information a user
;; because that makes a bootstrapping problem
;; if you need to recompile all the Lisp files using interpreted code.
(defun charset-id (charset)
(defun charset-id (_charset)
"Always return 0. This is provided for backward compatibility."
(declare (obsolete nil "23.1"))
0)
(defmacro charset-bytes (charset)
(defmacro charset-bytes (_charset)
"Always return 0. This is provided for backward compatibility."
(declare (obsolete nil "23.1"))
0)
......@@ -471,7 +471,7 @@ Return -1 if charset isn't an ISO 2022 one."
;;; CHARACTER
(define-obsolete-function-alias 'char-valid-p 'characterp "23.1")
(defun generic-char-p (char)
(defun generic-char-p (_char)
"Always return nil. This is provided for backward compatibility."
(declare (obsolete nil "23.1"))
nil)
......@@ -1429,7 +1429,7 @@ use either \\[customize] or \\[set-keyboard-coding-system]."
:type '(coding-system :tag "Coding system")
:link '(info-link "(emacs)Terminal Coding")
:link '(info-link "(emacs)Unibyte Mode")
:set (lambda (symbol value)
:set (lambda (_symbol value)
;; Don't load encoded-kb unnecessarily.
(if (or value (boundp 'encoded-kbd-setup-display))
(set-keyboard-coding-system value)
......@@ -1850,7 +1850,7 @@ If nothing is specified, the return value is nil."
(head-end (+ head-start (min size 1024)))
(tail-start (+ head-start (max (- size 3072) 0)))
(tail-end (+ head-start size))
coding-system head-found tail-found pos char-trans)
coding-system head-found tail-found char-trans)
;; Try a short cut by searching for the string "coding:"
;; and for "unibyte:" at the head and tail of SIZE bytes.
(setq head-found (or (search-forward "coding:" head-end t)
......@@ -1960,11 +1960,10 @@ use \"coding: 'raw-text\" instead." :warning)
(let ((funcs auto-coding-functions)
(coding-system nil))
(while (and funcs (not coding-system))
(setq coding-system (condition-case e
(save-excursion
(goto-char (point-min))
(funcall (pop funcs) size))
(error nil))))
(setq coding-system (ignore-errors
(save-excursion
(goto-char (point-min))
(funcall (pop funcs) size)))))
(if coding-system
(cons coding-system 'auto-coding-functions)))))
......
......@@ -777,7 +777,7 @@ See the command `isearch-forward' for more information."
(interactive "P\np")
(isearch-mode t nil nil (not no-recursive-edit) (null not-word)))
(defun isearch-forward-symbol (&optional not-symbol no-recursive-edit)
(defun isearch-forward-symbol (&optional _not-symbol no-recursive-edit)
"Do incremental search forward for a symbol.
The prefix argument is currently unused.
Like ordinary incremental search except that your input is treated
......
......@@ -159,7 +159,7 @@ is not used)."
initial-frame-alist)))))
;; Make -iconic apply only to the initial frame!
(defun x-handle-iconic (switch)
(defun x-handle-iconic (_switch)
(setq initial-frame-alist
(cons '(visibility . icon) initial-frame-alist)))
......@@ -175,7 +175,7 @@ is not used)."
(declare-function x-parse-geometry "frame.c" (string))
;; Handle the geometry option
(defun x-handle-geometry (switch)
(defun x-handle-geometry (_switch)
(let* ((geo (x-parse-geometry (pop x-invocation-args)))
(left (assq 'left geo))
(top (assq 'top geo))
......@@ -216,7 +216,7 @@ is not used)."
On X, the display name of individual X frames is recorded in the
`display' frame parameter.")
(defun x-handle-display (switch)
(defun x-handle-display (_switch)
"Handle -display DISPLAY option."
(setq x-display-name (pop x-invocation-args))
;; Make subshell programs see the same DISPLAY value Emacs really uses.
......
......@@ -164,22 +164,22 @@ created."
;; platforms. (Bug#10783)
;; From src/xfns.c
(defun x-list-fonts (pattern &optional face frame maximum width)
(defun x-list-fonts (_pattern &optional _face _frame _maximum width)
(if (or (null width) (and (numberp width) (= width 1)))
(list "ms-dos")
(list "no-such-font")))
(defun x-display-pixel-width (&optional frame) (frame-width frame))
(defun x-display-pixel-height (&optional frame) (frame-height frame))
(defun x-display-planes (&optional frame) 4) ;bg switched to 16 colors as well
(defun x-display-color-cells (&optional frame) 16)
(defun x-server-max-request-size (&optional frame) 1000000) ; ???
(defun x-server-vendor (&optional frame) t "GNU")
(defun x-server-version (&optional frame) '(1 0 0))
(defun x-display-screens (&optional frame) 1)
(defun x-display-mm-height (&optional frame) 245) ; Guess the size of my
(defun x-display-mm-width (&optional frame) 322) ; monitor, EZ...
(defun x-display-backing-store (&optional frame) 'not-useful)
(defun x-display-visual-class (&optional frame) 'static-color)
(defun x-display-planes (&optional _frame) 4) ;bg switched to 16 colors as well
(defun x-display-color-cells (&optional _frame) 16)
(defun x-server-max-request-size (&optional _frame) 1000000) ; ???
(defun x-server-vendor (&optional _frame) t "GNU")
(defun x-server-version (&optional _frame) '(1 0 0))
(defun x-display-screens (&optional _frame) 1)
(defun x-display-mm-height (&optional _frame) 245) ; Guess the size of my
(defun x-display-mm-width (&optional _frame) 322) ; monitor, EZ...
(defun x-display-backing-store (&optional _frame) 'not-useful)
(defun x-display-visual-class (&optional _frame) 'static-color)
(fset 'x-display-save-under 'ignore)