diff options
author | Glenn Morris <[email protected]> | 2009-01-09 04:23:38 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2009-01-09 04:23:38 +0000 |
commit | 1ba983e8d9da561ccbdf15fb1544895fad40cce8 (patch) | |
tree | 88210d37a85f0ef4a8d3341074b185c9d0187dad /lisp/progmodes/perl-mode.el | |
parent | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (diff) |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/progmodes/perl-mode.el')
-rw-r--r-- | lisp/progmodes/perl-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index b9275be67d..25950cd0aa 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -1,7 +1,7 @@ ;;; perl-mode.el --- Perl code editing commands for GNU Emacs -;; Copyright (C) 1990, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 -;; Free Software Foundation, Inc. +;; Copyright (C) 1990, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: William F. Mann ;; Maintainer: FSF @@ -606,14 +606,14 @@ If at end-of-line, and not in a comment or a quote, correct the's indentation." (and (not ; eliminate comments quickly (and comment-start-skip (re-search-forward comment-start-skip insertpos t)) ) - (or (/= last-command-char ?:) + (or (/= last-command-event ?:) ;; Colon is special only after a label .... (looking-at "\\s-*\\(\\w\\|\\s_\\)+$")) (let ((pps (parse-partial-sexp (perl-beginning-of-function) insertpos))) (not (or (nth 3 pps) (nth 4 pps) (nth 5 pps)))))) (progn ; must insert, indent, delete - (insert-char last-command-char 1) + (insert-char last-command-event 1) (perl-indent-line) (delete-char -1)))) (self-insert-command (prefix-numeric-value arg))) |