mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add erc-timestamp property to invisible messages

Browse source 
* lisp/erc/erc-fill.el (erc-fill--wrap-beginning-of-line): Pretend
nicks with an empty string as a `display' prop are `invisible-p' and
break out of hidden "merged" nicks after moving.  (Bug#60936.)
* lisp/erc/erc-match.el (erc-hide-fools): Add comment.
* lisp/erc/erc-stamp.el (erc-add-timestamp): Always add
`erc-timestamp' and `cursor-sensor-functions' properties but respect
tradition and don't actually stamp any invisible messages.
This commit is contained in:
F. Jason Park 2023-04-26 07:05:49 -07:00
parent 90a9c7b7b5
commit 2641dfd4b4
3 changed files with 18 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/erc/erc-stamp.el
View file

@ -198,13 +198,15 @@ may not be unique, `equal'-wise."
This function is meant to be called from `erc-insert-modify-hook'
or `erc-send-modify-hook'."
(unless (get-text-property (point-min) 'invisible)
(progn ; remove this `progn' on next major refactor
(let* ((ct (erc-stamp--current-time))
(invisible (get-text-property (point-min) 'invisible))
(erc-stamp--current-time ct))
(funcall erc-insert-timestamp-function
(erc-format-timestamp ct erc-timestamp-format))
(unless invisible
(funcall erc-insert-timestamp-function
(erc-format-timestamp ct erc-timestamp-format)))
;; FIXME this will error when advice has been applied.
(when (and (fboundp erc-insert-away-timestamp-function)
(when (and (not invisible) (fboundp erc-insert-away-timestamp-function)
erc-away-timestamp-format
(erc-away-time)
(not erc-timestamp-format))