mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(delete-key-deletes-forward-mode):

Browse Source 
Change `let' to `let*' to fix gross bug in last change.
This commit is contained in:
Richard M. Stallman 2001-02-10 16:34:42 +00:00
parent bea4b9cef4
commit 103db06c7a
2 changed files with 31 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2001-02-10 Richard M. Stallman <rms@gnu.org>
* 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
real-last-command.
2001-02-10 Eli Zaretskii <eliz@is.elta.co.il>
* simple.el (eval-expression): Doc fix.
@ -402,7 +410,7 @@
from 2001-01-12. It is not needed, since backspace is mapped into
DEL.
2001-01-27 Richard M. Stallman <rms@caffeine.ai.mit.edu>
2001-01-27 Richard M. Stallman <rms@gnu.org>
* 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
twice.
2001-01-26 Richard M. Stallman <rms@caffeine.ai.mit.edu>
2001-01-26 Richard M. Stallman <rms@gnu.org>
* 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 <rms@caffeine.ai.mit.edu>
2001-01-12 Richard M. Stallman <rms@gnu.org>
* 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 <rms@caffeine.ai.mit.edu>
2001-01-08 Richard M. Stallman <rms@gnu.org>
* 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

38
lisp/simple.el
View File

@ -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 "*")
(save-match-data
(save-excursion
@ -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])
(,esc-map
[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
(progn
@ -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-?]))
(dolist (binding bindings)
(let ((map global-map))
(when (keymapp (car binding))
(setq map (car binding) binding (cdr 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))))))
;; 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))
(key2 (nth 1 binding))
(binding1 (lookup-key map key1))
(binding2 (lookup-key map key2)))
(define-key map key1 binding2)
(define-key map key2 binding1)))))))
(t
(if delete-key-deletes-forward
(progn