emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[C-delete] - should it not be backward-kill-word


From: Lennart Borgman
Subject: [C-delete] - should it not be backward-kill-word
Date: Tue, 04 Jul 2006 23:44:05 +0200
User-agent: Thunderbird 1.5.0.4 (Windows/20060516)

On w32 it looks like it is instead kill-word. [C-backspace] is wrong the other way.

I wrote this little test to check if key bindings are the default specified in bindings.el:

(with-temp-buffer
 (insert-file (locate-library "bindings.el"))
 (let ((rdk)
       (key)
       (fun))
   (while (condition-case err
              (setq rdk (read (current-buffer)))
            (error nil))
     (setq key nil)
     (cond ((and (eq (nth 0 rdk) 'define-key)
                 (eq (nth 1 rdk) 'global-map))
            (setq key (nth 2 rdk))
            (setq fun (nth 3 rdk))
            )
           ((eq (nth 0 rdk) 'global-set-key)
            (setq key (nth 1 rdk))
            (setq fun (nth 2 rdk))
            ))
     (when key
       (assert (eq (nth 0 fun) 'quote))
       (setq fun (nth 1 fun))
       (unless (or (eq (key-binding key) fun)
                   (eq (key-binding key) (command-remapping fun)))
(message "from bindings.el: k=%s f=%s, but key-binding=%s" key fun (key-binding key)))
       ))))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]