Skip to content

Commit

Permalink
Change (setf (point) ...) to (goto-char ...)
Browse files Browse the repository at this point in the history
Emacs version 29.0.50 has deprecated the use of forms such
as `(setf (point) n)`. The warning emitted is: -

Warning (bytecomp): ‘point’ is an obsolete generalized variable; use
‘goto-char’ instead.
  • Loading branch information
polaris64 committed Nov 22, 2022
1 parent 12214bb commit 8c0fce5
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion ement-room.el
Original file line number Diff line number Diff line change
Expand Up @@ -2525,7 +2525,8 @@ Also, mark room's buffer as unmodified."
(interactive)
(if-let ((fully-read-pos (when ement-room-fully-read-marker
(ewoc-location ement-room-fully-read-marker))))
(setf (point) fully-read-pos (window-start) fully-read-pos)
(progn (goto-char fully-read-pos)
(setf (window-start) fully-read-pos))
;; Unlike the fully-read marker, there doesn't seem to be a
;; simple way to get the user's read-receipt marker. So if
;; we haven't seen either marker in the retrieved events, we
Expand Down

0 comments on commit 8c0fce5

Please sign in to comment.