回答編集履歴
1
内容追記
test
CHANGED
|
@@ -57,3 +57,45 @@
|
|
|
57
57
|
```
|
|
58
58
|
|
|
59
59
|
Emacs-Lispの記載としては、妥当なように思いますが、rueiさん的にはどのように動作するのがお望みでしょうか。
|
|
60
|
+
|
|
61
|
+
|
|
62
|
+
|
|
63
|
+
---
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
## 追記：
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+
なるほど、emacsのバージョンによって動作が異なる、と。
|
|
72
|
+
|
|
73
|
+
それでは、ちょっとダサいですが、回避策としてemacsのバージョンによって動作を切り替える、としてみてはいかがでしょうか。
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
```Lisp
|
|
78
|
+
|
|
79
|
+
(defun move-line-up ()
|
|
80
|
+
|
|
81
|
+
(interactive)
|
|
82
|
+
|
|
83
|
+
(let ((col (current-column)))
|
|
84
|
+
|
|
85
|
+
(unless (eq col 0)
|
|
86
|
+
|
|
87
|
+
(move-to-column 0))
|
|
88
|
+
|
|
89
|
+
(save-excursion
|
|
90
|
+
|
|
91
|
+
(forward-line)
|
|
92
|
+
|
|
93
|
+
(transpose-lines -1))
|
|
94
|
+
|
|
95
|
+
(if (>= emacs-major-version 24) ;; emacsのバージョンが24以上であるときだけ
|
|
96
|
+
|
|
97
|
+
(forward-line -1)) ;; 1行手前に移動する
|
|
98
|
+
|
|
99
|
+
))
|
|
100
|
+
|
|
101
|
+
```
|