[Emacs-diffs] emacs/lisp ChangeLog simple.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/01 18:06:09

Modified files:
        lisp           : ChangeLog simple.el 

Log message:
        (normal-erase-is-backspace-mode): Fix thinko in message.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16785&r2=1.16786
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1033&r2=1.1034

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16785
retrieving revision 1.16786
diff -u -b -r1.16785 -r1.16786
--- ChangeLog   1 Dec 2009 17:04:55 -0000       1.16785
+++ ChangeLog   1 Dec 2009 18:06:06 -0000       1.16786
@@ -1,3 +1,7 @@
+2009-12-01  Stefan Monnier  <address@hidden>
+
+       * simple.el (normal-erase-is-backspace-mode): Fix thinko in message.
+
 2009-12-01  Glenn Morris  <address@hidden>
 
        * window.el (window--display-buffer-2): Fix previous changes.

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1033
retrieving revision 1.1034
diff -u -b -r1.1033 -r1.1034
--- simple.el   19 Nov 2009 20:58:45 -0000      1.1033
+++ simple.el   1 Dec 2009 18:06:09 -0000       1.1034
@@ -6455,7 +6455,7 @@
     (run-hooks 'normal-erase-is-backspace-hook)
     (if (called-interactively-p 'interactive)
        (message "Delete key deletes %s"
-                (if (terminal-parameter nil 'normal-erase-is-backspace)
+                (if (eq 1 (terminal-parameter nil 'normal-erase-is-backspace))
                     "forward" "backward")))))
 
 (defvar vis-mode-saved-buffer-invisibility-spec nil