(prog-prettify-symbols) (prog-prettify-install): Update docstrings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bf63a4bbb0313d08250bffd01f9f3709fbfa953..acc7d6566d3b480dd0b473e333758bb187c9d6d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-05  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * progmodes/prog-mode.el (prog-prettify-symbols)
+       (prog-prettify-install): Update docstrings.
+
 2013-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el: Move all the prog-mode code to prog-mode.el.

diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index c1e2857eb895c81357f8e2d5562ec48f38d54643..483d1cd9cda5e41fed0ff00c043244d6e218144f 100644 (file)
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -58,8 +58,8 @@ instead."
 
 (defcustom prog-prettify-symbols nil
   "Whether symbols should be prettified.
-When set to an alist in the form `(STRING . CHARACTER)' it will
-augment the mode's native prettify alist."
+When set to an alist in the form `((STRING . CHARACTER)...)' it
+will augment the mode's native prettify alist."
   :type '(choice
           (const :tag "No thanks" nil)
           (const :tag "Mode defaults" t)
@@ -96,6 +96,12 @@ Regexp match data 0 points to the chars."
          (0 (prog--prettify-font-lock-compose-symbol ',alist)))))))
 
 (defun prog-prettify-install (alist)
+"Install prog-mode support to prettify symbols according to ALIST.
+
+ALIST is in the format `((STRING . CHARACTER)...)' like
+`prog-prettify-symbols'.
+
+Internally, `font-lock-add-keywords' is called."
   (setq-local prog-prettify-symbols-alist alist)
   (let ((keywords (prog-prettify-font-lock-symbols-keywords)))
     (if keywords (font-lock-add-keywords nil keywords))))