update packages
This commit is contained in:
@@ -1,10 +1,10 @@
|
||||
;; -*- no-byte-compile: t; lexical-binding: nil -*-
|
||||
(define-package "tablist" "20231019.1126"
|
||||
(define-package "tablist" "20260623.1855"
|
||||
"Extended tabulated-list-mode."
|
||||
'((emacs "24.3"))
|
||||
'((emacs "25.1"))
|
||||
:url "https://github.com/emacsorphanage/tablist"
|
||||
:commit "fcd37147121fabdf003a70279cf86fbe08cfac6f"
|
||||
:revdesc "fcd37147121f"
|
||||
:commit "01f065e387ffe6b7a41f180f257cd12551c7a9c2"
|
||||
:revdesc "01f065e387ff"
|
||||
:keywords '("extensions" "lisp")
|
||||
:authors '(("Andreas Politz" . "politza@fh-trier.de"))
|
||||
:maintainers '(("Andreas Politz" . "politza@fh-trier.de")))
|
||||
|
||||
@@ -5,9 +5,9 @@
|
||||
;; Author: Andreas Politz <politza@fh-trier.de>
|
||||
;; Keywords: extensions, lisp
|
||||
;; Package: tablist
|
||||
;; Package-Version: 20231019.1126
|
||||
;; Package-Revision: fcd37147121f
|
||||
;; Package-Requires: ((emacs "24.3"))
|
||||
;; Package-Version: 20260623.1855
|
||||
;; Package-Revision: 01f065e387ff
|
||||
;; Package-Requires: ((emacs "25.1"))
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
@@ -315,13 +315,12 @@ as argument for the function `completion-in-region'.")
|
||||
(cond
|
||||
((not disable)
|
||||
(set (make-local-variable 'mode-line-misc-info)
|
||||
(append
|
||||
(list
|
||||
(list 'tablist-current-filter
|
||||
'(:eval (format " [%s]"
|
||||
(if tablist-filter-suspended
|
||||
"suspended"
|
||||
"filtered")))))))
|
||||
(cons '(tablist-current-filter
|
||||
(:eval (format " [%s]"
|
||||
(if tablist-filter-suspended
|
||||
"suspended"
|
||||
"filtered"))))
|
||||
cleaned-misc))
|
||||
(add-hook 'post-command-hook
|
||||
'tablist-selection-changed-handler nil t)
|
||||
(add-hook 'tablist-selection-changed-functions
|
||||
@@ -437,18 +436,18 @@ a face on."
|
||||
(tabulated-list-put-tag
|
||||
(string tablist-marker-char))
|
||||
(put-text-property
|
||||
(point-at-bol)
|
||||
(1+ (point-at-bol))
|
||||
(line-beginning-position)
|
||||
(1+ (line-beginning-position))
|
||||
'face tablist-marker-face)
|
||||
(let ((columns (tablist-column-offsets)))
|
||||
(dolist (c (tablist-major-columns))
|
||||
(when (and (>= c 0)
|
||||
(< c (length columns)))
|
||||
(let ((beg (+ (point-at-bol)
|
||||
(let ((beg (+ (line-beginning-position)
|
||||
(nth c columns)))
|
||||
(end (if (= c (1- (length columns)))
|
||||
(point-at-eol)
|
||||
(+ (point-at-bol)
|
||||
(line-end-position)
|
||||
(+ (line-beginning-position)
|
||||
(nth (1+ c) columns)))))
|
||||
(cond
|
||||
((and tablist-marked-face
|
||||
@@ -841,7 +840,7 @@ STATE is a return value of `tablist-get-mark-state'."
|
||||
(forward-char))
|
||||
;; before any columns
|
||||
(when (< current 0)
|
||||
(goto-char (+ (point-at-bol) (if (> n 0)
|
||||
(goto-char (+ (line-beginning-position) (if (> n 0)
|
||||
(car columns)
|
||||
(car (last columns)))))
|
||||
(setq n (* (cl-signum n) (1- (abs n)))))
|
||||
@@ -1011,11 +1010,11 @@ Optional REVERT-P means, revert the display afterwards."
|
||||
(unless n (setq n (tablist-current-column)))
|
||||
(tablist-assert-column-editable n)
|
||||
(let* ((offsets (append (tablist-column-offsets)
|
||||
(list (- (point-at-eol)
|
||||
(point-at-bol)))))
|
||||
(beg (+ (point-at-bol)
|
||||
(list (- (line-end-position)
|
||||
(line-beginning-position)))))
|
||||
(beg (+ (line-beginning-position)
|
||||
(nth n offsets)))
|
||||
(end (+ (point-at-bol)
|
||||
(end (+ (line-beginning-position)
|
||||
(nth (1+ n) offsets)))
|
||||
(entry (tabulated-list-get-entry beg))
|
||||
(inhibit-read-only t)
|
||||
@@ -1027,9 +1026,9 @@ Optional REVERT-P means, revert the display afterwards."
|
||||
(goto-char beg)
|
||||
(delete-region beg end)
|
||||
(add-text-properties
|
||||
(point-at-bol) (point-at-eol)
|
||||
(line-beginning-position) (line-end-position)
|
||||
'(read-only t field t))
|
||||
(unless (= beg (point-at-bol))
|
||||
(unless (= beg (line-beginning-position))
|
||||
(put-text-property (1- beg) beg 'rear-nonsticky t))
|
||||
(save-excursion
|
||||
;; Keep one read-only space at the end for keeping text
|
||||
@@ -1039,7 +1038,7 @@ Optional REVERT-P means, revert the display afterwards."
|
||||
(concat
|
||||
(tablist-nth-entry n entry)
|
||||
(propertize " "
|
||||
'display `(space :align-to ,(- end (point-at-bol)))))
|
||||
'display `(space :align-to ,(- end (line-beginning-position)))))
|
||||
'field nil
|
||||
'front-sticky '(tablist-edit)
|
||||
'rear-nonsticky '(read-only field)
|
||||
@@ -1086,7 +1085,7 @@ Optional REVERT-P means, revert the display afterwards."
|
||||
(tablist-edit-column-minor-mode -1)
|
||||
(remove-overlays beg end 'tablist-edit t)
|
||||
(put-text-property beg end 'tablist-edit nil)
|
||||
(delete-region (point-at-bol) (1+ (point-at-eol)))
|
||||
(delete-region (line-beginning-position) (1+ (line-end-position)))
|
||||
(save-excursion
|
||||
(tabulated-list-print-entry id entry))
|
||||
(forward-char (nth column (tablist-column-offsets))))))
|
||||
@@ -1518,7 +1517,8 @@ FILTER defaults to `tablist-current-filter'."
|
||||
(tablist-filter-negate filter))))
|
||||
(force-mode-line-update))
|
||||
|
||||
(defadvice tabulated-list-print (after tabulated-list activate)
|
||||
(define-advice tabulated-list-print
|
||||
(:after (&rest _) tablist-reapply-filter)
|
||||
"Reapply the filter."
|
||||
(when (or tablist-minor-mode
|
||||
(derived-mode-p 'tablist-mode))
|
||||
@@ -1864,8 +1864,8 @@ visibility."
|
||||
(beginning-of-line)
|
||||
(let ((inhibit-read-only t))
|
||||
(add-text-properties
|
||||
(point-at-bol)
|
||||
(1+ (point-at-eol))
|
||||
(line-beginning-position)
|
||||
(1+ (line-end-position))
|
||||
`(invisible ,flag)))))
|
||||
|
||||
(defun tablist-filter-hide-entry (&optional pos)
|
||||
|
||||
Reference in New Issue
Block a user