From 57b22f490dfb32d3b298c83716cf8f7d7d2c6e25 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 Oct 2017 10:19:26 -0400 Subject: [PATCH] * test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): New test. --- test/lisp/help-fns-tests.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el index 98e6b335b90..6dc5299ef3c 100644 --- a/test/lisp/help-fns-tests.el +++ b/test/lisp/help-fns-tests.el @@ -81,6 +81,11 @@ Return first line of the output of (describe-function-1 FUNC)." (result (help-fns-tests--describe-function 'search-forward-regexp))) (should (string-match regexp result)))) +(ert-deftest help-fns-test-dangling-alias () + "Make sure we don't burp on bogus aliases." + (let ((f (make-symbol "bogus-alias"))) + (define-obsolete-function-alias f 'help-fns-test--undefined-function "past") + (describe-symbol f))) ;;; Test describe-function over functions with funny names (defun abc\\\[universal-argument\]b\`c\'d\\e\"f (x) -- 2.11.4.GIT