[patch] smiley-buffer (was: не показываются смайлики)

[deskpot@myrealbox.com (Vasily Korytov)]

[-- Attachment #1.1: Type: text/plain, Size: 373 bytes --]

On the xemacs-users-ru maling list a smiley-buffer function was
requested in Oort (it exists in XEmacs version of smiley.el). I wrote
one, but I'm not sure, if it mimics the arglist and return values (this
one returns the value of smiley-region). Anyway, attaching the patch.

2003-03-26  Vasily Korytov  <deskpot@myrealbox.com>

	* smiley.el (smiley-buffer): New.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: smiley.el.patch --]
[-- Type: text/x-patch, Size: 701 bytes --]

--- smiley.el~	Sun Feb  9 05:47:41 2003
+++ smiley.el	Wed Mar 26 22:02:59 2003
@@ -135,6 +135,16 @@
 	      (gnus-put-image image string))))
 	images))))
 
+;;;###autoload
+(defun smiley-buffer (&optional buffer)
+  "Run `smiley-region' at the buffer, specified in the argument or
+interactively. If there's no argument, do it at the current buffer"
+  (interactive "bBuffer to run smiley-region: ")
+  (save-excursion
+    (if buffer
+	(set-buffer (get-buffer buffer)))
+    (smiley-region (point-min) (point-max))))
+
 (defun smiley-toggle-buffer (&optional arg)
   "Toggle displaying smiley faces in article buffer.
 With arg, turn displaying on if and only if arg is positive."

[-- Attachment #1.3: Type: text/plain, Size: 141 bytes --]

-- 
       I accept RFC3156 and RFC1991-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]