Commit 103db06c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files


Change `let' to `let*' to fix gross bug in last change.
parent bea4b9ce
2001-02-10 Richard M. Stallman <>
* simple.el (delete-key-deletes-forward-mode):
Change `let' to `let*' to fix gross bug in last change.
* repeat.el (repeat): Don't let execute-kbd-macro alter
2001-02-10 Eli Zaretskii <>
* simple.el (eval-expression): Doc fix.
......@@ -402,7 +410,7 @@
from 2001-01-12. It is not needed, since backspace is mapped into
2001-01-27 Richard M. Stallman <>
2001-01-27 Richard M. Stallman <>
* dabbrev.el (dabbrev--substitute-expansion):
Treat a one-capital-letter abbrev as "not all upper case",
......@@ -469,7 +477,7 @@
* loadup.el (Top-level) [ms-dos]: Don't load international/ccl
2001-01-26 Richard M. Stallman <>
2001-01-26 Richard M. Stallman <>
* simple.el (next-line): Don't let `newline' expand abbrevs.
Simplify slightly.
......@@ -791,7 +799,7 @@
* bookmark.el (bookmark-maybe-historicize-string):
Use new backquote syntax.
2001-01-12 Richard M. Stallman <>
2001-01-12 Richard M. Stallman <>
* subr.el (last): Handle a list that doesn't end in nil.
......@@ -1100,7 +1108,7 @@
accepts extra latin codes, register such codes as safe for the
coding system.
2001-01-08 Richard M. Stallman <>
2001-01-08 Richard M. Stallman <>
* emacs-lisp/bytecomp.el (byte-compile-log-1): In non-batch case,
don't mention the file name or the date here, because they are
......@@ -230,7 +230,8 @@ On nonblank line, delete any immediately following blank lines."
(defun delete-trailing-whitespace ()
"Delete all the trailing whitespace across the current buffer.
All whitespace after the last non-whitespace character in a line is deleted.
This respects narrowing, created by \\[narrow-to-region] and friends."
This respects narrowing, created by \\[narrow-to-region] and friends.
A formfeed is not considered whitespace by this function."
(interactive "*")
......@@ -4069,12 +4070,12 @@ For more details, see `delete-key-deletes-forward'."
(cond ((or (memq window-system '(x w32 mac pc))
(memq system-type '(ms-dos windows-nt)))
(let ((bindings
`(([C-delete] [C-backspace] kill-word backward-kill-word)
([M-delete] [M-backspace] kill-word backward-kill-word)
([C-M-delete] [C-M-backspace] kill-sexp backward-kill-sexp)
`(([C-delete] [C-backspace])
([M-delete] [M-backspace])
([C-M-delete] [C-M-backspace])
[C-delete] [C-backspace]
kill-sexp backward-kill-sexp))))
[C-delete] [C-backspace])))
(old-state (lookup-key function-key-map [delete])))
(if delete-key-deletes-forward
......@@ -4085,19 +4086,18 @@ For more details, see `delete-key-deletes-forward'."
(define-key function-key-map [kp-delete] [?\C-?])
(define-key function-key-map [backspace] [?\C-?]))
;; Maybe swap bindings of C-delete and C-backspace, etc.
(unless (equal old-state (lookup-key function-key-map [delete]))
(dolist (binding bindings)
(let ((map global-map))
(when (keymapp (car binding))
(setq map (car binding) binding (cdr binding)))
(let ((key1 (nth 0 binding))
(let* ((key1 (nth 0 binding))
(key2 (nth 1 binding))
(binding1 (nth 2 binding))
(binding2 (nth 3 binding)))
(unless delete-key-deletes-forward
(let ((temp binding1))
(setq binding1 binding2 binding2 temp)))
(define-key map key1 binding1)
(define-key map key2 binding2))))))
(binding1 (lookup-key map key1))
(binding2 (lookup-key map key2)))
(define-key map key1 binding2)
(define-key map key2 binding1)))))))
(if delete-key-deletes-forward
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment