Skip to content

Commit

Permalink
Fix some removed stuff on emacs-29
Browse files Browse the repository at this point in the history
Tests complained.

There are more warnings but I don't know how to fix them.
  • Loading branch information
dgud committed Sep 25, 2024
1 parent 695714d commit c2d9c20
Show file tree
Hide file tree
Showing 4 changed files with 7 additions and 7 deletions.
2 changes: 1 addition & 1 deletion lib/tools/emacs/erlang-flymake.el
Original file line number Diff line number Diff line change
Expand Up @@ -69,7 +69,7 @@ check on newline and when there are no changes)."
(defun erlang-flymake-init ()
(let* ((temp-file
(cl-letf (((symbol-function 'flymake-get-temp-dir) #'erlang-flymake-temp-dir))
(flymake-init-create-temp-buffer-copy
(flymake-proc-init-create-temp-buffer-copy
'flymake-create-temp-with-folder-structure)))
(code-dir-opts
(erlang-flymake-flatten
Expand Down
4 changes: 2 additions & 2 deletions lib/tools/emacs/erlang-skels-old.el
Original file line number Diff line number Diff line change
Expand Up @@ -150,7 +150,7 @@ Please see the function `tempo-define-template'.")
"*The skeleton template to generate a version control attribute.
The default is to insert nothing. Example of usage:
(setq erlang-skel-vc '(& \"-rcs(\\\"$\Id: $ \\\").\") n)
(setq erlang-skel-vc '(& \="-rcs(\\\"$\Id: $ \\\").\=") n)
Please see the function `tempo-define-template'.")

Expand Down Expand Up @@ -179,7 +179,7 @@ Look in the module `time-stamp' for a battery of functions.")
(defvar erlang-skel-copyright-comment '()
"*The template for a copyright line in the header, normally empty.
This variable should be bound to a `tempo' template, for example:
'(& \"%%% Copyright (C) 2000, Yoyodyne, Inc.\" n)
'(& \="%%% Copyright (C) 2000, Yoyodyne, Inc.\=" n)
Please see the function `tempo-define-template'.")

Expand Down
6 changes: 3 additions & 3 deletions lib/tools/emacs/erlang-skels.el
Original file line number Diff line number Diff line change
Expand Up @@ -180,7 +180,7 @@ Please see the function `tempo-define-template'.")
"*The skeleton template to generate a version control attribute.
The default is to insert nothing. Example of usage:
(setq erlang-skel-vc '(& \"-rcs(\\\"$\Id: $ \\\").\") n)
(setq erlang-skel-vc '(& \="-rcs(\\\"$\Id: $ \\\").\=") n)
Please see the function `tempo-define-template'.")

Expand Down Expand Up @@ -214,7 +214,7 @@ Look in the module `time-stamp' for a battery of functions.")
(user-full-name) n))
"*The template for a copyright line in the header, normally empty.
This variable should be bound to a `tempo' template, for example:
'(& \"%%% Copyright (C) 2000, Yoyodyne, Inc.\" n)
'(& \="%%% Copyright (C) 2000, Yoyodyne, Inc.\=" n)
Please see the function `tempo-define-template'.")

(defvar erlang-skel-created-comment
Expand Down Expand Up @@ -2026,7 +2026,7 @@ package not be present, this function does nothing."
Example of use, assuming that `erlang-skel-func' is defined:
(defvar foo-skeleton '(\"%%% New function:\"
(defvar foo-skeleton '(\="%%% New function:\="
(erlang-skel-include erlang-skel-func)))
Technically, this function returns the `tempo' attribute`(l ...)' which
Expand Down
2 changes: 1 addition & 1 deletion lib/tools/emacs/erlang-test.el
Original file line number Diff line number Diff line change
Expand Up @@ -171,7 +171,7 @@ concatenated to form an erlang file to test on.")
(should (string-equal (file-truename expected-file)
(file-truename (buffer-file-name))))
(should (eq expected-line (line-number-at-pos)))
(should (= (point-at-bol) (point))))
(should (= (line-beginning-position) (point))))

(defun erlang-test-complete-at-point (tags-file)
(with-temp-buffer
Expand Down

0 comments on commit c2d9c20

Please sign in to comment.