Mercurial > emacs
comparison lisp/progmodes/ebrowse.el @ 62074:c0b42702a33a
(ebrowse-install-1-to-9-keys, ebrowse-print-statistics-line,
ebrowse-electric-position-mode-hook): Fix typo in docstring.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 05 May 2005 11:04:14 +0000 |
parents | 31aa9a390538 |
children | a7e02ef1e3d6 62afea0771d8 |
comparison
equal
deleted
inserted
replaced
62073:60c3c8765ba5 | 62074:c0b42702a33a |
---|---|
3935 (defvar ebrowse-electric-position-mode-map () | 3935 (defvar ebrowse-electric-position-mode-map () |
3936 "Keymap used in electric position stack window.") | 3936 "Keymap used in electric position stack window.") |
3937 | 3937 |
3938 | 3938 |
3939 (defvar ebrowse-electric-position-mode-hook nil | 3939 (defvar ebrowse-electric-position-mode-hook nil |
3940 "If non-nil, its value is called by ebrowse-electric-position-mode.") | 3940 "If non-nil, its value is called by `ebrowse-electric-position-mode'.") |
3941 | 3941 |
3942 | 3942 |
3943 (unless ebrowse-electric-position-mode-map | 3943 (unless ebrowse-electric-position-mode-map |
3944 (let ((map (make-keymap)) | 3944 (let ((map (make-keymap)) |
3945 (submap (make-keymap))) | 3945 (submap (make-keymap))) |
4183 static-variables))))) | 4183 static-variables))))) |
4184 | 4184 |
4185 | 4185 |
4186 (defun ebrowse-print-statistics-line (title value) | 4186 (defun ebrowse-print-statistics-line (title value) |
4187 "Print a line in the statistics buffer. | 4187 "Print a line in the statistics buffer. |
4188 TITLE is the title of the line, VALUE is number to be printed | 4188 TITLE is the title of the line, VALUE is a number to be printed |
4189 after that." | 4189 after that." |
4190 (insert title) | 4190 (insert title) |
4191 (indent-to 40) | 4191 (indent-to 40) |
4192 (insert (format "%d\n" value))) | 4192 (insert (format "%d\n" value))) |
4193 | 4193 |
4317 (goto-line n) | 4317 (goto-line n) |
4318 (throw 'electric-buffer-menu-select (point)))) | 4318 (throw 'electric-buffer-menu-select (point)))) |
4319 | 4319 |
4320 | 4320 |
4321 (defun ebrowse-install-1-to-9-keys () | 4321 (defun ebrowse-install-1-to-9-keys () |
4322 "Define keys 1..9 to select the 1st to 0nth entry in the list." | 4322 "Define keys 1..9 to select the 1st to 9nth entry in the list." |
4323 (dotimes (i 9) | 4323 (dotimes (i 9) |
4324 (define-key (current-local-map) (char-to-string (+ i ?1)) | 4324 (define-key (current-local-map) (char-to-string (+ i ?1)) |
4325 'ebrowse-select-1st-to-9nth))) | 4325 'ebrowse-select-1st-to-9nth))) |
4326 | 4326 |
4327 | 4327 |