Remove obsolete variable/function aliases.

Emacs 24.5 doesn't like docstrings on lambdas.

.drone.yml

@@ -0,0 +1,77 @@
+kind: pipeline
+name: Lint package
+
+volumes:
+- name: debian-package-cache
+  host:
+    path: /var/cache/debian-package-cache
+
+trigger:
+  event:
+    exclude:
+    - tag
+
+steps:
+- name: Emacs 26.3
+  image: flycheck/emacs-cask:26.3
+  pull: always
+  environment:
+    DEBIAN_FRONTEND: noninteractive
+    LANG: en_US.UTF-8
+  commands:
+  - rm /etc/apt/apt.conf.d/docker-clean
+  - alias apt-get='rm -f /var/cache/apt/archives/lock && apt-get'
+  - apt-get update -q
+  - apt-get install -qq language-pack-en git aspell-en
+  - ./makem.sh --verbose --sandbox --install-deps --install-linters lint
+  volumes:
+  - name: debian-package-cache
+    path: /var/cache/apt/archives
+
+- name: Emacs master-branch
+  image: flycheck/emacs-cask:master
+  pull: always
+  environment:
+    DEBIAN_FRONTEND: noninteractive
+    LANG: en_US.UTF-8
+  commands:
+  - rm /etc/apt/apt.conf.d/docker-clean
+  - alias apt-get='rm -f /var/cache/apt/archives/lock && apt-get'
+  - apt-get update -q
+  - apt-get install -qq language-pack-en git aspell-en
+  - emacs --version
+  - ./makem.sh --verbose --sandbox --install-deps --install-linters lint
+  volumes:
+  - name: debian-package-cache
+    path: /var/cache/apt/archives
+
+- name: Emacs 25.3
+  image: flycheck/emacs-cask:25.3
+  pull: always
+  environment:
+    DEBIAN_FRONTEND: noninteractive
+    LANG: C
+  commands:
+  - rm /etc/apt/apt.conf.d/docker-clean
+  - alias apt-get='rm -f /var/cache/apt/archives/lock && apt-get'
+  - apt-get update -q
+  - apt-get install -qq git
+  # Some package or its dependency requires Emacs 26.1,
+  # so we just check if it compiles.
+  - ./makem.sh --verbose --sandbox compile
+  volumes:
+  - name: debian-package-cache
+    path: /var/cache/apt/archives
+
+- name: notify
+  image: drillster/drone-email
+  pull: always
+  settings:
+    host: cryptoparty-celle.de
+    from: drone@tzend.de
+    username:
+      from_secret: email_username
+    password:
+      from_secret: email_password
+  when:
+    status: [ changed, failure ]

.gitignore

@@ -1,2 +1,2 @@
-/flycheck*.el*
 *~
+*.elc

README.md

@@ -1,7 +1,7 @@
 # register-quicknav - Quickly jump to next/previous register
 
 *Author:* tastytea <tastytea@tastytea.de><br>
-*Version:* 0.4.1<br>
+*Version:* 0.4.3<br>
 *URL:* [https://schlomp.space/tastytea/register-quicknav](https://schlomp.space/tastytea/register-quicknav)<br>
 
 This package is built on top of `register.el` and allows you to quickly jump
@@ -18,10 +18,6 @@ across all files or individually for each buffer.
 
 ## Installation
 
-**Note:** The function and variable names were previously separated by “/”
-from the namespace.  To conform with MELPA rules the separator has been
-changed to “-”.
-
 To use `register-quicknav.el`, get it from
 [MELPA](https://melpa.org/#/register-quicknav) or put it in your load-path
 and add the following to your init.el:

register-quicknav.el

@@ -3,8 +3,8 @@
 ;; Copyright (C) 2020  tastytea
 
 ;; Author: tastytea <tastytea@tastytea.de>
-;; Version: 0.4.1
+;; Version: 0.4.3
-;; Package-Requires: ((emacs "24.3"))
+;; Package-Requires: ((emacs "25.3"))
 ;; Keywords: convenience
 ;; URL: https://schlomp.space/tastytea/register-quicknav
 
@@ -37,10 +37,6 @@
 
 ;; Installation:
 ;;
-;; **Note:** The function and variable names were previously separated by “/”
-;; from the namespace.  To conform with MELPA rules the separator has been
-;; changed to “-”.
-;;
 ;; To use `register-quicknav.el', get it from
 ;; [MELPA](https://melpa.org/#/register-quicknav) or put it in your load-path
 ;; and add the following to your init.el:
@@ -88,15 +84,6 @@
 
 (require 'cl-lib)
 
-(define-obsolete-variable-alias 'register-quicknav/buffer-only
-  'register-quicknav-buffer-only "0.1.1")
-(define-obsolete-function-alias 'register-quicknav/next-register
-  #'register-quicknav-next-register "0.1.1")
-(define-obsolete-function-alias 'register-quicknav/prev-register
-  #'register-quicknav-prev-register "0.1.1")
-(define-obsolete-function-alias 'register-quicknav/clear-current-register
-  #'register-quicknav-clear-current-register "0.1.1")
-
 (defgroup register-quicknav nil
   "Variables for register-quicknav."
   :group 'editing)
@@ -170,7 +157,7 @@ Works on markers and file-queries."
     (let ((result))
       (dolist (register register-alist)
         (if (or (markerp (cdr register))
-                (eq (nth 1 register) 'file-query))
+                (ignore-errors (eq (nth 1 register) 'file-query)))
             (if register-quicknav-buffer-only
                 (when (register-quicknav--is-current-buffer? register)
                   (push register result))
@@ -224,10 +211,12 @@ Works on markers and file-queries."
 
 ;;;###autoload
 (defun register-quicknav-clear-current-register ()
-  "Clear last jumped-to position register from `register-alist'."
+  "Clear last jumped-to position register from `register-alist'.
+Deletes the value of `register-quicknav--last-register' from `register-alist'."
   (interactive)
   (setq register-alist
-        (delq (register-quicknav--last-register) register-alist)))
+        (delq (register-quicknav--last-register) register-alist))
+  (message "Cleared register %c." (car (register-quicknav--last-register))))
 
 ;;;###autoload
 (defun register-quicknav-point-to-unused-register ()
@@ -245,6 +234,7 @@ Searches the range between
     (if (<= char end)
         (progn
           (point-to-register char)
+          (register-quicknav--last-register (assoc char register-alist))
           (message "Position stored in register %c." char))
       (message "No unused register in the range %c - %c found." begin end))))
 
@@ -252,11 +242,14 @@ Searches the range between
 (defun register-quicknav-clear-unused-registers-range ()
   "Clear all registers in the range used by `register-quicknav-point-to-unused-register'."
   (interactive)
-  (dolist (register register-alist)
+  (let ((begin register-quicknav-unused-registers-begin)
-    (when (and (>= (car register) register-quicknav-unused-registers-begin)
+        (end register-quicknav-unused-registers-end))
-               (<= (car register) register-quicknav-unused-registers-end))
+    (dolist (register register-alist)
-      (setq register-alist
+      (when (and (>= (car register) begin)
-            (delq register register-alist)))))
+                 (<= (car register) end))
+        (setq register-alist
+              (delq register register-alist))))
+    (message "Cleared unused registers in the range %c - %c." begin end)))
 
 (provide 'register-quicknav)
 ;;; register-quicknav.el ends here