From e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 22 Apr 2011 20:44:26 +0200 Subject: lisp/progmodes/*.el: Lexical-binding cleanup. --- lisp/progmodes/cpp.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp/progmodes/cpp.el') diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el index d7b8b0e8748..a8f01705e2d 100644 --- a/lisp/progmodes/cpp.el +++ b/lisp/progmodes/cpp.el @@ -308,7 +308,6 @@ A prefix arg suppresses display of that buffer." ;; Pop top of cpp-state-stack and create overlay. (let ((entry (assoc (nth 1 (car cpp-state-stack)) cpp-edit-list)) (branch (nth 0 (car cpp-state-stack))) - (begin (nth 2 (car cpp-state-stack))) (end (nth 3 (car cpp-state-stack)))) (setq cpp-state-stack (cdr cpp-state-stack)) (if entry @@ -398,7 +397,7 @@ A prefix arg suppresses display of that buffer." (overlay-put overlay 'insert-in-front-hooks '(cpp-grow-overlay)) (overlay-put overlay 'insert-behind-hooks '(cpp-grow-overlay))) -(defun cpp-signal-read-only (overlay after start end &optional len) +(defun cpp-signal-read-only (overlay after start end &optional _len) ;; Only allow deleting the whole overlay. ;; Trying to change a read-only overlay. (if (and (not after) @@ -406,7 +405,7 @@ A prefix arg suppresses display of that buffer." (> (overlay-end overlay) end))) (error "This text is read only"))) -(defun cpp-grow-overlay (overlay after start end &optional len) +(defun cpp-grow-overlay (overlay after start end &optional _len) ;; Make OVERLAY grow to contain range START to END. (if after (move-overlay overlay -- cgit v1.2.1