diff options
author | Glenn Morris <rgm@gnu.org> | 2011-02-02 23:11:31 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2011-02-02 23:11:31 -0800 |
commit | 8aa8876085ebc42907997d234ff55bc8910f08d4 (patch) | |
tree | 3498f99acaebf3d7c718b3813d19e6e65968b080 | |
parent | f6041baa9d84125b0af4939b2d05edc0c59f034a (diff) | |
download | emacs-8aa8876085ebc42907997d234ff55bc8910f08d4.tar.gz |
strokes.el trivia.
* lisp/strokes.el (strokes-fill-current-buffer-with-whitespace):
Move definition before use.
(strokes-report-bug): Make it obsolete.
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/strokes.el | 18 |
2 files changed, 15 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b7d36b8387..de6463feeab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-02-03 Glenn Morris <rgm@gnu.org> + + * strokes.el (strokes-fill-current-buffer-with-whitespace): + Move definition before use. + (strokes-report-bug): Make it obsolete. + 2011-02-02 Sam Steingold <sds@gnu.org> * apropos.el (apropos-print): Now that `apropos-mode' inherits diff --git a/lisp/strokes.el b/lisp/strokes.el index feeb8fec944..51e75c4387c 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -718,6 +718,14 @@ Returns the corresponding match as (COMMAND . SCORE)." nil)) nil)) +(defsubst strokes-fill-current-buffer-with-whitespace () + "Erase the contents of the current buffer and fill it with whitespace." + (erase-buffer) + (loop repeat (frame-height) do + (insert-char ?\s (1- (frame-width))) + (newline)) + (goto-char (point-min))) + ;;;###autoload (defun strokes-read-stroke (&optional prompt event) "Read a simple stroke (interactively) and return the stroke. @@ -1034,15 +1042,7 @@ o Strokes are a bit computer-dependent in that they depend somewhat on (help-mode) (help-print-return-message))) -(defalias 'strokes-report-bug 'report-emacs-bug) - -(defsubst strokes-fill-current-buffer-with-whitespace () - "Erase the contents of the current buffer and fill it with whitespace." - (erase-buffer) - (loop repeat (frame-height) do - (insert-char ?\s (1- (frame-width))) - (newline)) - (goto-char (point-min))) +(define-obsolete-function-alias 'strokes-report-bug 'report-emacs-bug "24.1") (defun strokes-window-configuration-changed-p () "Non-nil if the `strokes-window-configuration' frame properties changed. |