aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/bindings.el
diff options
context:
space:
mode:
authorChong Yidong2011-10-08 12:37:46 -0400
committerChong Yidong2011-10-08 12:37:46 -0400
commitb2b0776e50cd07bc3fbe1548fc258d68a1dbbee8 (patch)
treeca33e46f624b6171b21ee79d9824e62bd88682d0 /lisp/bindings.el
parent27a16462454d7f45a0b1c65c0b0b2ed76091e11b (diff)
downloademacs-b2b0776e50cd07bc3fbe1548fc258d68a1dbbee8.tar.gz
emacs-b2b0776e50cd07bc3fbe1548fc258d68a1dbbee8.zip
Rework count-words-region. New command count-words.
See discussion at http://lists.gnu.org/archive/html/emacs-devel/2011-10/msg00193.html * lisp/simple.el (count-words-region): Always count in the region. Report the number of lines and characters too. (count-words): New command, which counts in the buffer if the region is inactive, as count-words-region used to. (count-words--message): New function. Handle plurals. (count-lines-region): Make it an alias for count-words-region. * lisp/bindings.el (esc-map): Replace count-lines-region with count-words-region. * doc/emacs/basic.texi (Position Info): Omit page commands. Document count-words-region and count-words. * doc/emacs/text.texi (Pages): Move what-page documentation here.
Diffstat (limited to 'lisp/bindings.el')
-rw-r--r--lisp/bindings.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el
index c056fce1e60..1a10d117987 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -773,7 +773,7 @@ if `inhibit-field-text-motion' is non-nil."
773(define-key ctl-x-map "\C-o" 'delete-blank-lines) 773(define-key ctl-x-map "\C-o" 'delete-blank-lines)
774(define-key esc-map " " 'just-one-space) 774(define-key esc-map " " 'just-one-space)
775(define-key esc-map "z" 'zap-to-char) 775(define-key esc-map "z" 'zap-to-char)
776(define-key esc-map "=" 'count-lines-region) 776(define-key esc-map "=" 'count-words-region)
777(define-key ctl-x-map "=" 'what-cursor-position) 777(define-key ctl-x-map "=" 'what-cursor-position)
778(define-key esc-map ":" 'eval-expression) 778(define-key esc-map ":" 'eval-expression)
779;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit. 779;; Define ESC ESC : like ESC : for people who type ESC ESC out of habit.