branch: externals/cobol-mode
commit 0326a1abe2234eb24de044ca685af5ee9b18fa7d
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@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.h...@gmail.com>
;; Maintainer: Edward Hart <edward.dan.h...@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))
