diff options
| author | Paul Eggert | 2012-04-13 22:10:55 -0700 |
|---|---|---|
| committer | Paul Eggert | 2012-04-13 22:10:55 -0700 |
| commit | 5ae255c7e9a2bd1ac594afe99fb24e9a0091d414 (patch) | |
| tree | 02a5850b735899fb0d8eb33281a1d4fa85f65eea /lisp | |
| parent | d5e6342ed5e408014019c478ce16a47a2aad418b (diff) | |
| download | emacs-5ae255c7e9a2bd1ac594afe99fb24e9a0091d414.tar.gz emacs-5ae255c7e9a2bd1ac594afe99fb24e9a0091d414.zip | |
Spelling fixes.
* lisp/hexl.el (hexl-rulerize): Rename from hexl-rulerise, since
Emacs uses American spelling.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/hexl.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1974a7a5af1..c25fab9b619 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2012-04-14 Paul Eggert <eggert@cs.ucla.edu> | ||
| 2 | |||
| 3 | Spelling fixes. | ||
| 4 | * hexl.el (hexl-rulerize): Rename from hexl-rulerise, since | ||
| 5 | Emacs uses American spelling. | ||
| 6 | |||
| 1 | 2012-04-14 Juanma Barranquero <lekktu@gmail.com> | 7 | 2012-04-14 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 8 | ||
| 3 | * emacs-lock.el (emacs-lock-locked-buffer-functions): New hook. | 9 | * emacs-lock.el (emacs-lock-locked-buffer-functions): New hook. |
diff --git a/lisp/hexl.el b/lisp/hexl.el index 6c4d8d6dc34..bedcc6b10b9 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -222,7 +222,7 @@ as that will override any bit grouping options set here." | |||
| 222 | (2 'hexl-ascii-region t t))) | 222 | (2 'hexl-ascii-region t t))) |
| 223 | "Font lock keywords used in `hexl-mode'.") | 223 | "Font lock keywords used in `hexl-mode'.") |
| 224 | 224 | ||
| 225 | (defun hexl-rulerise (string bits) | 225 | (defun hexl-rulerize (string bits) |
| 226 | (let ((size (/ bits 4)) (strlen (length string)) (pos 0) (ruler "")) | 226 | (let ((size (/ bits 4)) (strlen (length string)) (pos 0) (ruler "")) |
| 227 | (while (< pos strlen) | 227 | (while (< pos strlen) |
| 228 | (setq ruler (concat ruler " " (substring string pos (+ pos size)))) | 228 | (setq ruler (concat ruler " " (substring string pos (+ pos size)))) |
| @@ -234,7 +234,7 @@ as that will override any bit grouping options set here." | |||
| 234 | (lambda (bits) | 234 | (lambda (bits) |
| 235 | (cons bits | 235 | (cons bits |
| 236 | (concat " 87654321 " | 236 | (concat " 87654321 " |
| 237 | (hexl-rulerise "00112233445566778899aabbccddeeff" bits) | 237 | (hexl-rulerize "00112233445566778899aabbccddeeff" bits) |
| 238 | " 0123456789abcdef"))) | 238 | " 0123456789abcdef"))) |
| 239 | '(8 16 32 64))) | 239 | '(8 16 32 64))) |
| 240 | ;; routines | 240 | ;; routines |