trailing space

[aaa70]

更新おつかれさまです。わかりづらいですが、必要なスペースが除去されていました。 修正お願いいたします。

diff --git a/nicola/skk-kanagaki.el b/nicola/skk-kanagaki.el
index 07e6fb3..0831aa2 100644
--- a/nicola/skk-kanagaki.el
+++ b/nicola/skk-kanagaki.el
@@ -379,7 +379,7 @@ XFree86 B>e$G;HMQ$9$k>l9g!" BNc$($P$3$NCM$r [henkan]
    ((or (integerp parg)
         ;; C-u B$G$O$J$$>l9g
         (not (and parg (listp parg))))
-    (skk-bind-last-command-char ?\
+    (skk-bind-last-command-char ?\ 
      (skk-insert arg parg)))
    (t
     ;; C-u [SPC] B$GAw$j$"$jJQ49$r$9$k!#
diff --git a/nicola/skk-nicola.el b/nicola/skk-nicola.el
index a9a8d54..aa48baa 100644
--- a/nicola/skk-nicola.el
+++ b/nicola/skk-nicola.el
@@ -690,7 +690,7 @@ abbrev B$HF1$8%-!<$K$9$k>l9g$O skk-nicola-prefix-suffix-abbrev-chars B$r;
        (cl-case command
          (skk-nicola-self-insert-rshift
           ;; [B1& B1&]
-          (skk-bind-last-command-char ?\
+          (skk-bind-last-command-char ?\ 
            (cond (skk-henkan-mode
                   ;;
                   (skk-kanagaki-insert arg)
@@ -998,7 +998,7 @@ ARG B$rM?$($i$l$?>l9g$O$=$N?t$@$1J8;zNs$rO"7k$7$FF~NO$9$k!#"

 (defun skk-nicola-space-function (&optional arg parg)
   "B?F;X1&%-!<C1FHBG80;~$N5sF0$r7h$a$k4X?t!#"
-  (skk-bind-last-command-char ?\
+  (skk-bind-last-command-char ?\ 
    (cond
     ((eq skk-henkan-mode 'active)
      (call-interactively 'skk-insert))

[conao3]

申し訳ないです。 各ファイルで次のS式を実行したのですが。 delete-trailing-whitespace で消えてしまったみたいですね。

(progn
  (delete-trailing-whitespace)
  (untabify (point-min) (point-max))
  (indent-region (point-min) (point-max)))

delete-trailing-whitespace はたまに実行するので、他の方法で解決したいです。

[tats]

Emacs 22以降では?\の代わりに?\sが使えます。

cf. https://www.gnu.org/software/emacs/manual/html_node/emacs/Coding-Standards.html

53.1 Coding Standards

• Remove all trailing whitespace in all source and text files.
• Use ?\s instead of ? in Lisp code for a space character.

[aaa70]

早速の修正ありがとうございます。 "?\s"初見でした。string-to-char での修正もありがとうございました。

[conao3]

更新しました。助言ありがとうございます。