[Emacs-diffs] trunk r116659: lisp/hilit-chg.el (hilit-chg-unload-function): New function.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116659
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2014-03-04 16:07:59 +0100
message:
  lisp/hilit-chg.el (hilit-chg-unload-function): New function.
  
  (highlight-changes-mode, highlight-changes-visible-mode): Fix typos.
  (hilit-chg-map-changes): Prefer cardinal number to digit.
  (hilit-chg-display-changes): Reflow docstring.
  (highlight-changes-rotate-faces): Remove superfluous backslash.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/hilit-chg.el              
hilitchg.el-20091113204419-o5vbwnq5f7feedwu-1287

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-04 14:40:38 +0000
+++ b/lisp/ChangeLog    2014-03-04 15:07:59 +0000
@@ -1,3 +1,11 @@
+2014-03-04  Juanma Barranquero  <address@hidden>
+
+       * hilit-chg.el (hilit-chg-unload-function): New function.
+       (highlight-changes-mode, highlight-changes-visible-mode): Fix typos.
+       (hilit-chg-map-changes): Prefer cardinal number to digit.
+       (hilit-chg-display-changes): Reflow docstring.
+       (highlight-changes-rotate-faces): Remove superfluous backslash.
+
 2014-03-04  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-sh-handle-vc-registered): Do not call

=== modified file 'lisp/hilit-chg.el'
--- a/lisp/hilit-chg.el 2014-01-01 07:43:34 +0000
+++ b/lisp/hilit-chg.el 2014-03-04 15:07:59 +0000
@@ -333,7 +333,7 @@
 
 When Highlight Changes is enabled, changes are marked with a text
 property.  Normally they are displayed in a distinctive face, but
-command \\[highlight-changes-visible-mode] can be used to toggles
+command \\[highlight-changes-visible-mode] can be used to toggle
 this on and off.
 
 Other functions for buffers in this mode include:
@@ -379,7 +379,7 @@
 The default value can be customized with variable
 `highlight-changes-visibility-initial-state'.
 
-This command does not itself set highlight-changes mode."
+This command does not itself set Highlight Changes mode."
 
   t            ;; init-value
   nil          ;; lighter
@@ -455,7 +455,7 @@
   "Call function FUNC for each region used by Highlight Changes mode.
 If START-POSITION is nil, (point-min) is used.
 If END-POSITION is nil, (point-max) is used.
-FUNC is called with 3 params: PROPERTY START STOP."
+FUNC is called with three params: PROPERTY START STOP."
   (let ((start (or start-position (point-min)))
        (limit (or end-position (point-max)))
        prop end)
@@ -470,8 +470,8 @@
 (defun hilit-chg-display-changes (&optional beg end)
   "Display face information for Highlight Changes mode.
 
-An overlay from BEG to END containing a change face is added from the
-information in the text property of type `hilit-chg'.
+An overlay from BEG to END containing a change face is added
+from the information in the text property of type `hilit-chg'.
 
 This is the opposite of `hilit-chg-hide-changes'."
   (hilit-chg-map-changes 'hilit-chg-make-ov beg end))
@@ -731,7 +731,7 @@
 this function to `write-file-functions' as a buffer-local value.  To do
 this, eval the following in the buffer to be saved:
 
-  \(add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t)"
+  (add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t)"
   (interactive)
   (when (and highlight-changes-mode highlight-changes-visible-mode)
     (let ((modified (buffer-modified-p))
@@ -1022,6 +1022,12 @@
 ;;
 ;; ================== end of debug ===============
 
+(defun hilit-chg-unload-function ()
+  "Unload the Highlight Changes library."
+  (global-hi-lock-mode -1)
+  ;; continue standard unloading
+  nil)
+
 (provide 'hilit-chg)
 
 ;;; hilit-chg.el ends here