[elpa] scratch/yasnippet 64bb554272 3/8: * yasnippet-tests.el: Minor cosmetic changes

[Stefan Monnier]

branch: scratch/yasnippet
commit 64bb554272fa318606d6f0d4e1a7a00727d1b7e1
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * yasnippet-tests.el: Minor cosmetic changes
    
    Use utf-8 rather than latin-1.
    Prefer #' to quote function names.
    (special-mode): Remove backward compatibility code which never worked
    since it uses `fundamental` which doesn't exist).
---
 yasnippet-tests.el | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/yasnippet-tests.el b/yasnippet-tests.el
index fdc539590f..56dcf45e9f 100644
--- a/yasnippet-tests.el
+++ b/yasnippet-tests.el
@@ -1,8 +1,8 @@
 ;;; yasnippet-tests.el --- some yasnippet tests  -*- lexical-binding: t -*-
 
-;; Copyright (C) 2012-2015, 2017-2018  Free Software Foundation, Inc.
+;; Copyright (C) 2012-2023  Free Software Foundation, Inc.
 
-;; Author: Jo�o T�vora <joaot@siscog.pt>
+;; Author: João Távora <joaot@siscog.pt>
 ;; Keywords: emulations, convenience
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -136,9 +136,6 @@ This lets `yas--maybe-expand-from-keymap-filter' work as 
expected."
 
 ;;; Older emacsen
 ;;;
-(unless (fboundp 'special-mode)
-  ;; FIXME: Why provide this default definition here?!?
-  (defalias 'special-mode 'fundamental))
 
 (unless (fboundp 'string-suffix-p)
   ;; introduced in Emacs 24.4
@@ -1431,7 +1428,7 @@ hello ${1:$(when (stringp yas-text) (funcall func 
yas-text))} foo${1:$$(concat \
          (should (equal (sort expected-rest #'string<)
                         (sort (cl-subseq observed (length expected-first)) 
#'string<))))))))
 
-(defalias 'yas--phony-c-mode 'c-mode)
+(defalias 'yas--phony-c-mode #'c-mode)
 
 (ert-deftest issue-492-and-494 ()
   (define-derived-mode yas--test-mode yas--phony-c-mode "Just a test mode")
@@ -1670,14 +1667,14 @@ TODO: be meaner"
                            :test #'eq :key #'car))))
     (define-key yas-minor-mode-map [tab] nil)
     (define-key yas-minor-mode-map (kbd "TAB") nil)
-    (define-key yas-minor-mode-map (kbd "SPC") 'yas-expand)
+    (define-key yas-minor-mode-map (kbd "SPC") #'yas-expand)
     (with-temp-buffer
       (yas-minor-mode 1)
-      (should-not (eq (key-binding (kbd "TAB")) 'yas-expand))
+      (should-not (eq (key-binding (kbd "TAB")) #'yas-expand))
       (should (eq (key-binding (kbd "SPC")) 'yas-expand))
       (yas-reload-all)
-      (should-not (eq (key-binding (kbd "TAB")) 'yas-expand))
-      (should (eq (key-binding (kbd "SPC")) 'yas-expand)))))
+      (should-not (eq (key-binding (kbd "TAB")) #'yas-expand))
+      (should (eq (key-binding (kbd "SPC")) #'yas-expand)))))
 
 (ert-deftest test-yas-in-org ()
   (yas-saving-variables