aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorStefan Monnier2021-03-11 13:29:14 -0500
committerStefan Monnier2021-03-11 13:29:14 -0500
commitb21f6193fe1b92382bf7efbd9d44eba0613f3168 (patch)
treedb0c11d01523499ddc761654b42c75b7b0eac3ee /lisp/textmodes
parentfe844299a4432ef2443ac89b63df985fc58b2752 (diff)
downloademacs-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.el4
-rw-r--r--lisp/textmodes/flyspell.el4
-rw-r--r--lisp/textmodes/rst.el2
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