diff options
| author | Chong Yidong | 2012-08-11 00:02:48 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-08-11 00:02:48 +0800 |
| commit | e1293765d95660fc7f2cf0fcb28026d1efa592df (patch) | |
| tree | ff5bee4a882eb0a7a604fa50cb08d025fe697203 /lisp/bindings.el | |
| parent | e18941095a56075d6eb908a65aafcd1697fea2ae (diff) | |
| download | emacs-e1293765d95660fc7f2cf0fcb28026d1efa592df.tar.gz emacs-e1293765d95660fc7f2cf0fcb28026d1efa592df.zip | |
Bind M-= back to count-words-region, and let it accept a prefix arg.
* lisp/bindings.el: Bind M-= back to count-words-region.
* lisp/simple.el (count-words-region): Accept a prefix arg for acting
on the entire buffer.
(count-words--buffer-message): New helper function.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 655cda235b4..e0555a17b15 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -793,7 +793,7 @@ if `inhibit-field-text-motion' is non-nil." | |||
| 793 | (define-key ctl-x-map "\C-o" 'delete-blank-lines) | 793 | (define-key ctl-x-map "\C-o" 'delete-blank-lines) |
| 794 | (define-key esc-map " " 'just-one-space) | 794 | (define-key esc-map " " 'just-one-space) |
| 795 | (define-key esc-map "z" 'zap-to-char) | 795 | (define-key esc-map "z" 'zap-to-char) |
| 796 | (define-key esc-map "=" 'count-words) | 796 | (define-key esc-map "=" 'count-words-region) |
| 797 | (define-key ctl-x-map "=" 'what-cursor-position) | 797 | (define-key ctl-x-map "=" 'what-cursor-position) |
| 798 | (define-key esc-map ":" 'eval-expression) | 798 | (define-key esc-map ":" 'eval-expression) |
| 799 | ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. | 799 | ;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. |