;; The smilies were drawn by Joe Reiss <jreiss@vt.edu>.
+;;; Code:
+
(require 'cl)
(require 'custom)
:group 'gnus-visual)
;; FIXME: Where is the directory when using Emacs?
-(defcustom smiley-data-directory
+(defcustom smiley-data-directory
(if (featurep 'xemacs)
(message-xmas-find-glyph-directory "smilies")
"/usr/local/lib/xemacs/xemacs-packages/etc/smilies")
"Toggle smiley at given point.
Note -- this function hasn't been implemented yet."
(interactive "e")
- (error "This function hasn't been implemented yet.")
-)
+ (error "This function hasn't been implemented yet"))
(defun smiley-toggle-extents (e)
(interactive "e")
;; FIXME::
(defun smiley-toggle-extents-ems (e)
(interactive "e")
- (error "This function hasn't been implemented yet.")
-)
+ (error "This function hasn't been implemented yet"))
;;;###autoload
(defun smiley-buffer (&optional buffer st nd)
(dolist (overlay (overlays-in (or st (point-min))
(or nd (point-max))))
(when (overlay-get overlay 'smiley)
- (remove-text-properties (overlay-start overlay)
+ (remove-text-properties (overlay-start overlay)
(overlay-end overlay) '(display))
(delete-overlay overlay)))
(goto-char (or st (point-min)))
;; FIXME: make it work as the one in XEmacs.
(defun smiley-toggle-buffer-ems (&optional arg buffer st nd)
"Toggle displaying smiley faces.
-With arg, turn displaying on if and only if arg is positive."
+With arg, turn displaying on if and only if arg is positive."
(interactive "P")
(save-excursion
(when buffer
(dolist (overlay (overlays-in (or st (point-min))
(or nd (point-max))))
(when (overlay-get overlay 'smiley)
- (remove-text-properties (overlay-start overlay)
+ (remove-text-properties (overlay-start overlay)
(overlay-end overlay) '(display))
(setq found t)))
(unless found