[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/tutorial.el,v
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/tutorial.el,v |
Date: |
Sun, 28 Jan 2007 07:08:52 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Richard M. Stallman <rms> 07/01/28 07:08:52
Index: tutorial.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/tutorial.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- tutorial.el 21 Jan 2007 03:53:10 -0000 1.12
+++ tutorial.el 28 Jan 2007 07:08:51 -0000 1.13
@@ -250,10 +250,9 @@
;; * INSERTING AND DELETING
;; C-u 8 * to insert ********.
- (delete-backward-char [backspace])
(delete-backward-char "\d")
(delete-char [?\C-d])
- (backward-kill-word [(meta backspace)])
+ (backward-kill-word [?\M-\d])
(kill-word [?\M-d])
(kill-line [?\C-k])
(kill-sentence [?\M-k])
@@ -422,6 +421,10 @@
QUIET is t if this changed keybinding should be handled quietly.
This is used by `tutorial--display-changes'."
(let (changed-keys remark)
+ ;; Look up the bindings in a Fundamental mode buffer
+ ;; so we do not get fooled by some other major mode.
+ (with-temp-buffer
+ (fundamental-mode)
(dolist (kdf default-keys)
;; The variables below corresponds to those with the same names
;; described in the doc string.
@@ -505,7 +508,7 @@
key-fun def-fun key where))
nil))
(add-to-list 'changed-keys
- (list key def-fun def-fun-txt where remark nil)))))
+ (list key def-fun def-fun-txt where remark nil))))))
changed-keys))
(defun tutorial--key-description (key)
@@ -621,7 +624,7 @@
(setq file-name (concat file-name ".tut")))
(expand-file-name file-name (tutorial--saved-dir))))
-(defun tutorial--remove-remarks()
+(defun tutorial--remove-remarks ()
"Remove the remark lines that was added to the tutorial buffer."
(save-excursion
(goto-char (point-min))
@@ -908,7 +911,7 @@
See `get-lang-string' for more information.")
-(defun get-lang-string(lang stringid &optional no-eng-fallback)
+(defun get-lang-string (lang stringid &optional no-eng-fallback)
"Get a language specific string for Emacs.
In certain places Emacs can replace a string showed to the user with a
language specific string.
This function retrieves such strings.
- [Emacs-diffs] Changes to emacs/lisp/tutorial.el,v, Juanma Barranquero, 2007/01/03
- [Emacs-diffs] Changes to emacs/lisp/tutorial.el,v, Chong Yidong, 2007/01/09
- [Emacs-diffs] Changes to emacs/lisp/tutorial.el,v, Glenn Morris, 2007/01/20
- [Emacs-diffs] Changes to emacs/lisp/tutorial.el,v,
Richard M. Stallman <=
- [Emacs-diffs] Changes to emacs/lisp/tutorial.el,v, Richard M. Stallman, 2007/01/30