diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-22 20:44:26 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-22 20:44:26 +0200 |
| commit | e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 (patch) | |
| tree | d27a2d9fd6838d6e619c824deb12a568ceac54f6 /lisp/progmodes/sh-script.el | |
| parent | 7ede3b6577ae99a3e7ac45baa7cace439bf5070c (diff) | |
| download | emacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.tar.gz emacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.tar.bz2 emacs-e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794.zip | |
lisp/progmodes/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/progmodes/sh-script.el')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 7b84cc89d08..258f9be9237 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -987,8 +987,7 @@ subshells can nest." ;; rather flakey. (when (eq ?\" (nth 3 (syntax-ppss))) ; Check we matched an opening quote. ;; bingo we have a $( or a ` inside a "" - (let ((char (char-after (point))) - ;; `state' can be: double-quote, backquote, code. + (let (;; `state' can be: double-quote, backquote, code. (state (if (eq (char-before) ?`) 'backquote 'code)) ;; Stacked states in the context. (states '(double-quote))) @@ -1212,7 +1211,7 @@ a number means align to that column, e.g. 0 means first column." ;; "For debugging: display message ARGS if variable SH-DEBUG is non-nil." ;; (if sh-debug ;; (apply 'message args))) -(defmacro sh-debug (&rest args)) +(defmacro sh-debug (&rest _args)) (defconst sh-symbol-list '((const :tag "+ " :value + @@ -2138,7 +2137,6 @@ STRING This is ignored for the purposes of calculating (save-excursion (let ((have-result nil) this-kw - start val (result nil) (align-point nil) @@ -2209,7 +2207,6 @@ STRING This is ignored for the purposes of calculating ;; We start off at beginning of this line. ;; Scan previous statements while this is <= ;; start of previous line. - (setq start (point)) ;; for debug only (goto-char prev-line-end) (setq x t) (while (and x (setq x (sh-prev-thing))) @@ -2614,7 +2611,7 @@ can be represented by a symbol then do so." If INFO is supplied it is used, else it is calculated from current line." (let ((ofs 0) (base-value 0) - elt a b var val) + elt a b val) (or info (setq info (sh-get-indent-info))) (when info |