emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/cobol-mode 0326a1abe2: Fix new warnings


From: Stefan Monnier
Subject: [elpa] externals/cobol-mode 0326a1abe2: Fix new warnings
Date: Mon, 23 May 2022 18:02:13 -0400 (EDT)

branch: externals/cobol-mode
commit 0326a1abe2234eb24de044ca685af5ee9b18fa7d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Fix new warnings
    
    * cobol-mode.el (cobol--syntax-propertize-adjacent-quotes) Stay within
    80 columns.
    
    * .gitignore: New file.
---
 .gitignore    | 3 +++
 cobol-mode.el | 7 ++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000000..10358a2923
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,3 @@
+*.elc
+/cobol-mode-autoloads.el
+/cobol-mode-pkg.el
diff --git a/cobol-mode.el b/cobol-mode.el
index f7dcab8c83..bbe83e6875 100644
--- a/cobol-mode.el
+++ b/cobol-mode.el
@@ -1,6 +1,6 @@
 ;;; cobol-mode.el --- Mode for editing COBOL code -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2013-2019  Free Software Foundation, Inc.
+;; Copyright (C) 2013-2022  Free Software Foundation, Inc.
 
 ;; Author: Edward Hart <edward.dan.hart@gmail.com>
 ;; Maintainer: Edward Hart <edward.dan.hart@gmail.com>
@@ -2323,7 +2323,8 @@ Code copied from the Emacs source."
             ;; If the first quote began a string, then the next quote may be 
the
             ;; first character in another escaped quote sequence.
             (forward-char 1))))))
-    "Syntax rule to mark the first of adjacent quotes, e.g. \"\" or '', as an 
escape character."))
+    "Syntax rule to mark the first of adjacent quotes.
+It marks the first of \"\" or '' as an escape character."))
 
 (defun cobol--syntax-propertize-function (beg end)
   "Syntax propertize awkward COBOL features (fixed-form comments, indicators
@@ -3046,7 +3047,7 @@ start of area A, if fixed-format)."
 
 (defvar cobol-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map [remap back-to-indentation] 'cobol-back-to-indentation)
+    (define-key map [remap back-to-indentation] #'cobol-back-to-indentation)
     ;;(define-key map (kbd "RET") #'newline-and-indent)
     map))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]