This commit was generated by cvs2svn to compensate for changes in r6565,

[elisp/gnus.git-] / lisp / smiley.el

diff --git a/lisp/smiley.el b/lisp/smiley.el
index ac9566c..e6c13f7 100644 (file)
--- a/lisp/smiley.el
+++ b/lisp/smiley.el
@@ -1,5 +1,5 @@
 ;;; smiley.el --- displaying smiley faces
 ;;; smiley.el --- displaying smiley faces

-;; Copyright (C) 1996,97 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.

 
 ;; Author: Wes Hardaker <hardaker@ece.ucdavis.edu>
 ;; Keywords: fun
 
 ;; Author: Wes Hardaker <hardaker@ece.ucdavis.edu>
 ;; Keywords: fun

@@ -45,7 +45,7 @@
   :group 'gnus-visual)
 
 (defcustom smiley-data-directory (message-xmas-find-glyph-directory "smilies")
   :group 'gnus-visual)
 
 (defcustom smiley-data-directory (message-xmas-find-glyph-directory "smilies")

-  "Location of the smiley faces files."
+  "*Location of the smiley faces files."

   :type 'directory
   :group 'smiley)
 
   :type 'directory
   :group 'smiley)
 

@@ -76,7 +76,7 @@
     ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm")
     ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm")
     ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm"))
     ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm")
     ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm")
     ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm"))

-  "Normal and deformed faces for smilies."
+  "*Normal and deformed faces for smilies."

   :type '(repeat (list regexp
                       (integer :tag "Match")
                       (string :tag "Image")))
   :type '(repeat (list regexp
                       (integer :tag "Match")
                       (string :tag "Image")))

@@ -102,14 +102,14 @@
     ("\\(:-+[Vvµ]\\)\\W" 1 "FaceWry.xpm")
     ("\\(][:8B]-[)>]\\)\\W" 1 "FaceDevilish.xpm")
     ("\\([:|]-+P\\)\\W" 1 "FaceYukky.xpm"))
     ("\\(:-+[Vvµ]\\)\\W" 1 "FaceWry.xpm")
     ("\\(][:8B]-[)>]\\)\\W" 1 "FaceDevilish.xpm")
     ("\\([:|]-+P\\)\\W" 1 "FaceYukky.xpm"))

-  "Smileys with noses.  These get less false matches."
+  "*Smileys with noses.  These get less false matches."

   :type '(repeat (list regexp
                       (integer :tag "Match")
                       (string :tag "Image")))
   :group 'smiley)
 
 (defcustom smiley-regexp-alist smiley-deformed-regexp-alist
   :type '(repeat (list regexp
                       (integer :tag "Match")
                       (string :tag "Image")))
   :group 'smiley)
 
 (defcustom smiley-regexp-alist smiley-deformed-regexp-alist

-  "A list of regexps to map smilies to real images.
+  "*A list of regexps to map smilies to real images.

 Defaults to the contents of `smiley-deformed-regexp-alist'.
 An alternative is `smiley-nosey-regexp-alist' that matches less
 aggressively.
 Defaults to the contents of `smiley-deformed-regexp-alist'.
 An alternative is `smiley-nosey-regexp-alist' that matches less
 aggressively.

@@ -123,27 +123,27 @@ If this is a symbol, take its value."
   :group 'smiley)
 
 (defcustom smiley-flesh-color "yellow"
   :group 'smiley)
 
 (defcustom smiley-flesh-color "yellow"

-  "Flesh color."
+  "*Flesh color."

   :type 'string
   :group 'smiley)
 
 (defcustom smiley-features-color "black"
   :type 'string
   :group 'smiley)
 
 (defcustom smiley-features-color "black"

-  "Features color."
+  "*Features color."

   :type 'string
   :group 'smiley)
 
 (defcustom smiley-tongue-color "red"
   :type 'string
   :group 'smiley)
 
 (defcustom smiley-tongue-color "red"

-  "Tongue color."
+  "*Tongue color."

   :type 'string
   :group 'smiley)
 
 (defcustom smiley-circle-color "black"
   :type 'string
   :group 'smiley)
 
 (defcustom smiley-circle-color "black"

-  "Circle color."
+  "*Circle color."

   :type 'string
   :group 'smiley)
 
 (defcustom smiley-mouse-face 'highlight
   :type 'string
   :group 'smiley)
 
 (defcustom smiley-mouse-face 'highlight

-  "Face used for mouse highlighting in the smiley buffer.
+  "*Face used for mouse highlighting in the smiley buffer.

 
 Smiley buttons will be displayed in this face when the cursor is
 above them."
 
 Smiley buttons will be displayed in this face when the cursor is
 above them."

@@ -192,7 +192,7 @@ above them."
   (smiley-buffer (current-buffer) beg end))
 
 (defun smiley-toggle-extent (event)
   (smiley-buffer (current-buffer) beg end))
 
 (defun smiley-toggle-extent (event)

-  "Toggle smiley at given point"
+  "Toggle smiley at given point."

   (interactive "e")
   (let* ((ant (event-glyph-extent event))
         (pt (event-closest-point event))
   (interactive "e")
   (let* ((ant (event-glyph-extent event))
         (pt (event-closest-point event))

@@ -303,7 +303,7 @@ Mouse button3 - menu"))
 (defvar gnus-article-buffer)
 ;;;###autoload
 (defun gnus-smiley-display ()
 (defvar gnus-article-buffer)
 ;;;###autoload
 (defun gnus-smiley-display ()

-  "Display \"smileys\" as small graphical icons." 
+  "Display \"smileys\" as small graphical icons."

   (interactive)
   (save-excursion
     (set-buffer gnus-article-buffer)
   (interactive)
   (save-excursion
     (set-buffer gnus-article-buffer)