diff options
| author | Stefan Monnier | 2021-03-11 13:29:14 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2021-03-11 13:29:14 -0500 |
| commit | b21f6193fe1b92382bf7efbd9d44eba0613f3168 (patch) | |
| tree | db0c11d01523499ddc761654b42c75b7b0eac3ee /lisp/textmodes | |
| parent | fe844299a4432ef2443ac89b63df985fc58b2752 (diff) | |
| download | emacs-b21f6193fe1b92382bf7efbd9d44eba0613f3168.tar.gz emacs-b21f6193fe1b92382bf7efbd9d44eba0613f3168.zip | |
* lisp: Remove yet more always-nil variables
* lisp/align.el (align-region):
Remove always-nil variable `group-c`.
* lisp/ido.el (ido-make-prompt): Remove always-nil variable `prefix`.
* lisp/xdg.el (xdg-mime-collect-associations):
Remove always-nil variable `end`.
* lisp/calc/calc-yank.el (calc-edit):
Remove always-nil variable `flag`.
* lisp/calendar/todo-mode.el (todo-edit-item--header):
Remove always-nil variable `dayname`.
(todo-show-categories-table):
Remove always-nil variable `sortkey`.
* lisp/emacs-lisp/checkdoc.el (checkdoc-ispell-docstring-engine):
Remove always-nil variable `err`.
* lisp/emacs-lisp/tcover-ses.el: Remove always-nil variable `pause`.
* lisp/eshell/em-ls.el (eshell-ls-files):
Remove always-nil variable `ignore`.
* lisp/net/ange-ftp.el (ange-ftp-copy-file-internal): Remove always-nil
variable `temp2`.
* lisp/progmodes/cperl-mode.el (cperl-tags-hier-init): Remove
always-nil variables `l1`, `l2`, `l3`.
(cperl-tags-treeify): Remove always-nil variable `l1`.
* lisp/progmodes/ebrowse.el (ebrowse-tags-read-member+class-name):
Remove always-nil variable `class`.
* lisp/textmodes/artist.el (artist-draw-ellipse-with-0-height):
Remove always-nil variable `fill-info`.
* lisp/textmodes/flyspell.el (flyspell-emacs-popup):
Remove always-nil variable `show-affix-info`.
* lisp/textmodes/rst.el (rst-Ado):
Remove always-nil variable `char`.
* lisp/vc/vc.el (vc-diff-build-argument-list-internal):
Remove always-nil variable `rev2-default`.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/artist.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/flyspell.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/rst.el | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 9a886d23971..3d081220910 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el | |||
| @@ -3466,7 +3466,7 @@ The Y-RADIUS must be 0, but the X-RADIUS must not be 0." | |||
| 3466 | (line-char (if artist-line-char-set artist-line-char ?-)) | 3466 | (line-char (if artist-line-char-set artist-line-char ?-)) |
| 3467 | (i 0) | 3467 | (i 0) |
| 3468 | (point-list nil) | 3468 | (point-list nil) |
| 3469 | (fill-info nil) | 3469 | ;; (fill-info nil) |
| 3470 | (shape-info (make-vector 2 0))) | 3470 | (shape-info (make-vector 2 0))) |
| 3471 | (while (< i width) | 3471 | (while (< i width) |
| 3472 | (let* ((line-x (+ left-edge i)) | 3472 | (let* ((line-x (+ left-edge i)) |
| @@ -3479,7 +3479,7 @@ The Y-RADIUS must be 0, but the X-RADIUS must not be 0." | |||
| 3479 | (setq point-list (append point-list (list new-coord))) | 3479 | (setq point-list (append point-list (list new-coord))) |
| 3480 | (setq i (1+ i)))) | 3480 | (setq i (1+ i)))) |
| 3481 | (aset shape-info 0 point-list) | 3481 | (aset shape-info 0 point-list) |
| 3482 | (aset shape-info 1 fill-info) | 3482 | (aset shape-info 1 nil) ;; fill-info |
| 3483 | (artist-make-2point-object (artist-make-endpoint x1 y1) | 3483 | (artist-make-2point-object (artist-make-endpoint x1 y1) |
| 3484 | (artist-make-endpoint x-radius y-radius) | 3484 | (artist-make-endpoint x-radius y-radius) |
| 3485 | shape-info))) | 3485 | shape-info))) |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 83dba7177ab..a48b3457aa2 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -2293,8 +2293,8 @@ If OPOINT is non-nil, restore point there after adjusting it for replacement." | |||
| 2293 | corrects) | 2293 | corrects) |
| 2294 | '())) | 2294 | '())) |
| 2295 | (affix (car (cdr (cdr (cdr poss))))) | 2295 | (affix (car (cdr (cdr (cdr poss))))) |
| 2296 | show-affix-info | 2296 | ;; show-affix-info |
| 2297 | (base-menu (let ((save (if (and (consp affix) show-affix-info) | 2297 | (base-menu (let ((save (if nil ;; (and (consp affix) show-affix-info) |
| 2298 | (list | 2298 | (list |
| 2299 | (list (concat "Save affix: " (car affix)) | 2299 | (list (concat "Save affix: " (car affix)) |
| 2300 | 'save) | 2300 | 'save) |
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index c51285d3de6..ce156370d57 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -616,7 +616,7 @@ After interpretation of ARGS the results are concatenated as for | |||
| 616 | (:constructor | 616 | (:constructor |
| 617 | rst-Ado-new-transition | 617 | rst-Ado-new-transition |
| 618 | (&aux | 618 | (&aux |
| 619 | (char nil) | 619 | ;; (char nil) |
| 620 | (-style 'transition))) | 620 | (-style 'transition))) |
| 621 | ;; Construct a simple section header. | 621 | ;; Construct a simple section header. |
| 622 | (:constructor | 622 | (:constructor |