[Emacs-diffs] /srv/bzr/emacs/trunk r103092: strokes.el trivia.

[Glenn Morris]

------------------------------------------------------------
revno: 103092
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-02-02 23:11:31 -0800
message:
  strokes.el trivia.
  * lisp/strokes.el (strokes-fill-current-buffer-with-whitespace):
  Move definition before use.
  (strokes-report-bug): Make it obsolete.
modified:
  lisp/ChangeLog
  lisp/strokes.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-02 17:59:44 +0000
+++ b/lisp/ChangeLog    2011-02-03 07:11:31 +0000
@@ -1,3 +1,9 @@
+2011-02-03  Glenn Morris  <address@hidden>
+
+       * strokes.el (strokes-fill-current-buffer-with-whitespace):
+       Move definition before use.
+       (strokes-report-bug): Make it obsolete.
+
 2011-02-02  Sam Steingold  <address@hidden>
 
        * apropos.el (apropos-print): Now that `apropos-mode' inherits

=== modified file 'lisp/strokes.el'
--- a/lisp/strokes.el   2011-01-25 04:08:28 +0000
+++ b/lisp/strokes.el   2011-02-03 07:11:31 +0000
@@ -718,6 +718,14 @@
          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 @@
     (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.