From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 27 Feb 2021 02:23:39 +0000 (+0100)
Subject: Use lexical-binding in progmodes/icon.el
X-Git-Tag: emacs-28.0.90~3527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b1fb6186b2ddc0b34103cffa8bb6c1607926acd;p=emacs.git

Use lexical-binding in progmodes/icon.el

* lisp/progmodes/icon.el: Use lexical-binding.
(electric-icon-brace): Very minor cleanup.
---

diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el
index d81fe1c753b..e9a21d4a0cf 100644
--- a/lisp/progmodes/icon.el
+++ b/lisp/progmodes/icon.el
@@ -1,4 +1,4 @@
-;;; icon.el --- mode for editing Icon code
+;;; icon.el --- mode for editing Icon code  -*- lexical-binding: t -*-
 
 ;; Copyright (C) 1989, 2001-2021 Free Software Foundation, Inc.
 
@@ -197,12 +197,11 @@ with no args, if that value is non-nil."
 	(progn
 	  (insert last-command-event)
 	  (icon-indent-line)
-	  (if icon-auto-newline
-	      (progn
-		(newline)
-		;; (newline) may have done auto-fill
-		(setq insertpos (- (point) 2))
-		(icon-indent-line)))
+          (when icon-auto-newline
+            (newline)
+            ;; (newline) may have done auto-fill
+            (setq insertpos (- (point) 2))
+            (icon-indent-line))
 	  (save-excursion
 	    (if insertpos (goto-char (1+ insertpos)))
 	    (delete-char -1))))