.drone.yml

@@ -1,77 +0,0 @@
-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.3<br>
+*Version:* 0.4.1<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,6 +18,10 @@ 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.3
-;; Package-Requires: ((emacs "25.3"))
+;; Version: 0.4.1
+;; Package-Requires: ((emacs "24.3"))
 ;; Keywords: convenience
 ;; URL: https://schlomp.space/tastytea/register-quicknav
 
@@ -37,6 +37,10 @@
 
 ;; 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:
@@ -84,6 +88,15 @@
 
 (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)
@@ -157,7 +170,7 @@ Works on markers and file-queries."
     (let ((result))
       (dolist (register register-alist)
         (if (or (markerp (cdr register))
-                (ignore-errors (eq (nth 1 register) 'file-query)))
+                (eq (nth 1 register) 'file-query))
             (if register-quicknav-buffer-only
                 (when (register-quicknav--is-current-buffer? register)
                   (push register result))
@@ -211,12 +224,10 @@ Works on markers and file-queries."
 
 ;;;###autoload
 (defun register-quicknav-clear-current-register ()
-  "Clear last jumped-to position register from `register-alist'.
-Deletes the value of `register-quicknav--last-register' from `register-alist'."
+  "Clear last jumped-to position register from `register-alist'."
   (interactive)
   (setq register-alist
-        (delq (register-quicknav--last-register) register-alist))
-  (message "Cleared register %c." (car (register-quicknav--last-register))))
+        (delq (register-quicknav--last-register) register-alist)))
 
 ;;;###autoload
 (defun register-quicknav-point-to-unused-register ()
@@ -234,7 +245,6 @@ 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))))
 
@@ -242,14 +252,11 @@ 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)
-  (let ((begin register-quicknav-unused-registers-begin)
-        (end register-quicknav-unused-registers-end))
-    (dolist (register register-alist)
-      (when (and (>= (car register) begin)
-                 (<= (car register) end))
-        (setq register-alist
-              (delq register register-alist))))
-    (message "Cleared unused registers in the range %c - %c." begin end)))
+  (dolist (register register-alist)
+    (when (and (>= (car register) register-quicknav-unused-registers-begin)
+               (<= (car register) register-quicknav-unused-registers-end))
+      (setq register-alist
+            (delq register register-alist)))))
 
 (provide 'register-quicknav)
 ;;; register-quicknav.el ends here