branch: externals/osm
commit dcdb21b3205c5517ad6539898ecd1733939b398e
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Move function
---
osm.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/osm.el b/osm.el
index 4c4f61faeb..9f77e55b17 100644
--- a/osm.el
+++ b/osm.el
@@ -849,6 +849,14 @@ Local per buffer since the overlays depend on the zoom
level.")
(when (directory-empty-p dir)
(ignore-errors (delete-directory dir))))))))
+;; TODO: Use `completion-table-with-metadata'
+(defun osm--table-with-metadata (table metadata)
+ "Return new completion TABLE with METADATA."
+ (lambda (string pred action)
+ (if (eq action 'metadata)
+ `(metadata . ,metadata)
+ (complete-with-action action table string pred))))
+
(defun osm--check-libraries ()
"Check that Emacs is compiled with the necessary libraries."
(let (req)
@@ -1733,14 +1741,6 @@ See `osm-search-server' and `osm-search-language' for
customization."
(apply #'osm--boundingbox-to-zoom (cdddr selected))
nil 'osm-selected (car selected))))
-;; TODO: Use `completion-table-with-metadata'
-(defun osm--table-with-metadata (table metadata)
- "Return new completion TABLE with METADATA."
- (lambda (string pred action)
- (if (eq action 'metadata)
- `(metadata . ,metadata)
- (complete-with-action action table string pred))))
-
;;;###autoload
(defun osm-gpx-show (file)
"Show the tracks of gpx FILE in an `osm-mode' buffer."
