aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOmar Polo <op@omarpolo.com>2020-07-25 13:08:27 +0200
committerOmar Polo <op@omarpolo.com>2020-07-25 13:08:27 +0200
commit8a31ba9d54199a01796a13f40885a2ddb3284d66 (patch)
tree03bf0a80217cd4977fbdefc55e00f714643c5eaa
parentedba2cef5243fc1425f63911b43f87d94729adc7 (diff)
downloadsam.el-8a31ba9d54199a01796a13f40885a2ddb3284d66.tar.gz
sam.el-8a31ba9d54199a01796a13f40885a2ddb3284d66.tar.bz2
fix the airity of the sam-cmd-* functions
they're called with the rest of the command as first (and only) parameter.
-rw-r--r--sam.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/sam.el b/sam.el
index fd0a339..641ffee 100644
--- a/sam.el
+++ b/sam.el
@@ -177,7 +177,7 @@
(buffer-substring-no-properties (region-beginning)
(region-end))))
-(defun sam-cmd-charoffset ()
+(defun sam-cmd-charoffset (_arg)
(cl-destructuring-bind (begin . end) (sam-current-buffer-region)
(with-current-buffer (sam-get-buffer)
(insert "#" (number-to-string begin) ","
@@ -190,29 +190,29 @@
"#" (number-to-string begin) ","
"#" (number-to-string end) "\n"))))
-(defun sam-cmd-filename ()
+(defun sam-cmd-filename (_arg)
(with-current-buffer (sam-get-buffer)
(insert (buffer-name sam-current-buffer) "\n")))
-(defun sam-cmd-print ()
+(defun sam-cmd-print (_arg)
(let ((s (sam-get-region-as-string)))
(with-current-buffer (sam-get-buffer)
(insert s "\n"))))
-(defun sam-cmd-switch-buffer ()
+(defun sam-cmd-switch-buffer (_arg)
(with-current-buffer (sam-get-buffer)
(sam-report-error "not implemented yet")))
-(defun sam-cmd-switch-buffer-no-fuzzy ()
+(defun sam-cmd-switch-buffer-no-fuzzy (_arg)
(with-current-buffer (sam-get-buffer)
(sam-report-error "not implemented yet")))
-(defun sam-cmd-buflist ()
+(defun sam-cmd-buflist (_arg)
(with-current-buffer (sam-get-buffer)
(dolist (buf (sam-list-file-buffers))
(insert " " (buffer-file-name buf) "\n"))))
-(defun sam-cmd-quit ()
+(defun sam-cmd-quit (_arg)
(kill-buffer (sam-get-buffer)))
(defun sam-mode ()