hatena-vars.elの修正漏れ対応

diff --git a/hatena-diary-mode.el b/hatena-diary-mode.el
index 7021db0..6d73f51 100644 (file)
--- a/hatena-diary-mode.el
+++ b/hatena-diary-mode.el
@@ -27,7 +27,7 @@
 ;; If not, see <http://www.gnu.org/licenses/>.
 
 
-(defconst hatena-version "2.1.0" "Version number of hatena.el")
+(defconst hatena-version "2.2.0" "Version number of hatena.el")
 
 ;; ¢£¥¤¥ó¥¹¥È¡¼¥ëÊýË¡
 ;; 1) ŬÅö¤Ê¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤³¤Î¥Õ¥¡¥¤¥ë¤ò¤ª¤¯.

diff --git a/hatena-vars.el b/hatena-vars.el
index 08f3b3f..be7be80 100644 (file)
--- a/hatena-vars.el
+++ b/hatena-vars.el
@@ -90,8 +90,36 @@ is expected to accept only one argument(URL)."
   :type 'boolean\r
   :group 'hatena)\r
 \r
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\r
 \r
+(defcustom hatena-diary-mode-submit-hook nil\r
+  "Æüµ­¤ò¤Ï¤Æ¤Ê¥À¥¤¥¢¥ê¡¼¤ËÅê¹Æ `hatena-submit' ¤¹¤ëľÁ°¤Ë¡¢Á÷¿®¤¹\r
+¤ëÆâÍƤò»ý¤Ä°ì»þ¥Ð¥Ã¥Õ¥¡¾å¤Ç¸Æ¤Ó½Ð¤µ¤ì¤ë¥Õ¥Ã¥¯¡£Î㤨¤Ð¡ÖϢ³¤·¤Ê¤¤\r
+²þ¹Ô¤ò¤¹¤Ù¤Æ½ü¤¯¡×¤Ê¤É¤Î½èÍý¤¬¹Í¤¨¤é¤ì¤Þ¤¹¡£\r
+\r
+Îã:\r
+    (add-hook 'hatena-diary-mode-submit-hook\r
+              (lambda ()\r
+                (goto-char (point-min))\r
+                (replace-regexp \"\\\\([^\\n]\\\\)\\n\\\\([^\\n]\\\\)\" \"\\\\1\\\\2\")))\r
+\r
+¤³¤Î¥Õ¥Ã¥¯¤Ç²Ã¤¨¤é¤ì¤¿Êѹ¹¤ÏÆüµ­¥Õ¥¡¥¤¥ë¤Ë¤Ï»Ä¤ê¤Þ¤»¤ó¡£¼ê¸µ¤Ë¤âÊÑ\r
+¹¹¤ò»Ä¤·¤¿¤¤¾ì¹ç¤Ï `hatena-diary-mode-before-submit-hook' ¤ò»ÈÍѤ·\r
+¤Æ¤¯¤À¤µ¤¤¡£"\r
+  :type 'hook\r
+  :group 'hatena)\r
+\r
+(defcustom hatena-diary-mode-before-submit-hook nil\r
+  "Æüµ­¤ò¤Ï¤Æ¤Ê¥À¥¤¥¢¥ê¡¼¤ËÅê¹Æ `hatena-submit' ¤¹¤ëºÝ¤ÎÁ°½èÍý¤ÎÃÊ\r
+³¬¤Ç¡¢Åö³º¤ÎÆüµ­¤Î¥Õ¥¡¥¤¥ë¥Ð¥Ã¥Õ¥¡¾å¤Ë¤Æ¸Æ¤Ó½Ð¤µ¤ì¤ë¥Õ¥Ã¥¯¡£\r
+\r
+¤³¤Î¥Õ¥Ã¥¯¤Ç²Ã¤¨¤é¤ì¤¿Êѹ¹¤Ï¼ê¸µ¤Î¥Õ¥¡¥¤¥ë¤Ë¤â»Ä¤ê¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤Ë\r
+¤ÏÊѹ¹¤ò²Ã¤¨¤º¤ËÅê¹Æ¤µ¤ì¤ë¥Ç¡¼¥¿¤Î¤ß¤ò¥Õ¥Ã¥¯¤ÇÊÔ½¸¤·¤¿¤¤¾ì¹ç¤Ï¡¢\r
+`hatena-diary-mode-submit-hook' ¤ò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£"\r
+  :type 'hook\r
+  :group 'hatena)\r
+\r
+\r
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\r
 \r
 ;;Æüµ­¥Õ¥¡¥¤¥ë¤ÎÀµµ¬É½¸½\r
 (defvar hatena-fname-regexp\r