[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4d1dcdf 6/7: Remove autoloads and "postion" -> "line-numbe
From: |
Rocky Bernstein |
Subject: |
[elpa] master 4d1dcdf 6/7: Remove autoloads and "postion" -> "line-number" ... |
Date: |
Mon, 1 Aug 2016 17:17:07 +0000 (UTC) |
branch: master
commit 4d1dcdf7631c23b1259ad4f72bf9686cf95fb46c
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
Remove autoloads and "postion" -> "line-number" ...
Suggestions from Stefan Monnier.
position in ELisp refers to char-based offset
---
loc-changes.el | 23 ++++++++++-------------
1 file changed, 10 insertions(+), 13 deletions(-)
diff --git a/loc-changes.el b/loc-changes.el
index 543b3df..4e3660b 100644
--- a/loc-changes.el
+++ b/loc-changes.el
@@ -81,7 +81,6 @@ internal buffer called *Describe*."
(setq buffer-read-only 't)
))
-;;;###autoload
(defun loc-changes-goto-line (line-number &optional column-number)
"Position `point' at LINE-NUMBER of the current buffer. If
COLUMN-NUMBER is given, position `point' at that column just
@@ -161,7 +160,6 @@ marker for it will be created at the point."
(cons (cons pos (list (point-marker) (buffer-substring (point)
(point-at-eol))))
loc-changes-alist)))
-;;;###autoload
(defun loc-changes-add-and-goto (line-number &optional opt-buffer)
"Add a marker at LINE-NUMBER and record LINE-NUMBER and its
marker association in `loc-changes-alist'."
@@ -198,7 +196,6 @@ marker association in `loc-changes-alist'."
))
)
-;;;###autoload
(defun loc-changes-clear-buffer (&optional opt-buffer)
"Remove all location-tracking associations in BUFFER."
(interactive "bbuffer: ")
@@ -209,7 +206,6 @@ marker association in `loc-changes-alist'."
))
)
-;;;###autoload
(defun loc-changes-reset-position (&optional opt-buffer no-insert)
"Update `loc-changes-alist' so that the line number of point is
used to when aline number is requested.
@@ -237,23 +233,24 @@ so that its positions are will be reflected."
))
-(defun loc-changes-goto (position &optional opt-buffer no-update)
- "Go to the position inside BUFFER taking into account the
-previous location marks. Normally if the position hasn't been
-seen before, we will add a new mark for this position. However if
+(defun loc-changes-goto (line-number &optional opt-buffer no-update)
+ "Go to the LINE-NUMBER inside OPT-BUFFER taking into account the
+previous line-number marks. Normally if the line-number hasn't been
+seen before, we will add a new mark for this line-number. However if
NO-UPDATE is set, no mark is added."
- (unless (wholenump position)
+ ;;; FIXME: opt-buffer is not used
+ (unless (wholenump line-number)
(error "Expecting line-number parameter `%s' to be a whole number"
- position))
- (let ((elt (assq position loc-changes-alist)))
+ line-number))
+ (let ((elt (assq line-number loc-changes-alist)))
(if elt
(let ((marker (cadr elt)))
(unless (markerp marker)
(error "Internal error: loc-changes-alist is not a marker"))
(goto-char (marker-position marker)))
(if no-update
- (loc-changes-goto-line position)
- (loc-changes-add-and-goto position))
+ (loc-changes-goto-line line-number)
+ (loc-changes-add-and-goto line-number))
)
)
)
- [elpa] master updated (a0ac02f -> 8ad82e5), Rocky Bernstein, 2016/08/01
- [elpa] master 38e5756 1/7: Fix footer, Rocky Bernstein, 2016/08/01
- [elpa] master 5800073 4/7: Small formatting change., Rocky Bernstein, 2016/08/01
- [elpa] master 4d1dcdf 6/7: Remove autoloads and "postion" -> "line-number" ...,
Rocky Bernstein <=
- [elpa] master 79640e9 3/7: In support of last change. Silence caddr warning., Rocky Bernstein, 2016/08/01
- [elpa] master e180026 2/7: Include line text when saving location info., Rocky Bernstein, 2016/08/01
- [elpa] master d0ef370 5/7: Docstring quoting change. New elget-installer, Rocky Bernstein, 2016/08/01
- [elpa] master 8ad82e5 7/7: Merge commit '4d1dcdf7631c23b1259ad4f72bf9686cf95fb46c', Rocky Bernstein, 2016/08/01