aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOmar Polo <op@omarpolo.com>2020-11-28 12:05:09 +0100
committerOmar Polo <op@omarpolo.com>2020-11-28 12:05:09 +0100
commit9a27cb3346de13f0ed3f37692c8ccca6caef7cf3 (patch)
treebd90d190f33d0d8ff2392705b9d6a7474b80752a
parent05f843a785d9ddcd98066165649c8a3b3264f31b (diff)
downloadsam.el-9a27cb3346de13f0ed3f37692c8ccca6caef7cf3.tar.gz
sam.el-9a27cb3346de13f0ed3f37692c8ccca6caef7cf3.tar.bz2
simplify sam-dot-select-line
-rw-r--r--sam.el9
1 files changed, 3 insertions, 6 deletions
diff --git a/sam.el b/sam.el
index 29829b2..83d7656 100644
--- a/sam.el
+++ b/sam.el
@@ -104,12 +104,9 @@
(with-current-buffer sam-current-buffer
(with-no-warnings
(goto-line lineno)
- (let (p1 p2)
- (setq p1 (line-beginning-position)
- p2 (line-end-position))
- (goto-char p2)
- (push-mark p1)
- (setq mark-active t)))))
+ (goto-char (line-end-position))
+ (push-mark (line-beginning-position))
+ (setq mark-active t))))
(defun sam-set-dot (address)
(when sam-current-buffer