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

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

[nongnu] externals/caml b499b25 171/197: MPR#7610: caml.el: avoid using


From: Stefan Monnier
Subject: [nongnu] externals/caml b499b25 171/197: MPR#7610: caml.el: avoid using deprecated last-command-char variable
Date: Sat, 21 Nov 2020 01:20:01 -0500 (EST)

branch: externals/caml
commit b499b25d3c75eacdd28b4f9fc989b2c2daa2b2c0
Author: Xavier Leroy <xavier.leroy@inria.fr>
Commit: Xavier Leroy <xavier.leroy@inria.fr>

    MPR#7610: caml.el: avoid using deprecated last-command-char variable
    
    Also: mention (in Changes) this and other recent caml.el tweaks.
---
 caml.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/caml.el b/caml.el
index 06720ad..fb3670a 100644
--- a/caml.el
+++ b/caml.el
@@ -1768,7 +1768,7 @@ by |, insert one."
 (defun caml-abbrev-hook ()
   "If inserting a leading keyword at beginning of line, reindent the line."
   ;itz unfortunately we need a special case
-  (if (and (not (caml-in-comment-p)) (not (= last-command-char ?_)))
+  (if (and (not (caml-in-comment-p)) (not (= last-command-event ?_)))
       (let* ((bol (save-excursion (beginning-of-line) (point)))
              (kw (save-excursion
                    (and (re-search-backward "^[ \t]*\\(\\sw+\\)\\=" bol t)
@@ -1778,7 +1778,7 @@ by |, insert one."
                             (goto-char (match-beginning 1))
                             (caml-indent-command)
                             (current-column)))
-                  (abbrev-correct (if (= last-command-char ?\ ) 1 0)))
+                  (abbrev-correct (if (= last-command-event ?\ ) 1 0)))
               (indent-to (- indent
                             (or
                              (symbol-value



reply via email to

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