[Emacs-diffs] master 57b22f4: * test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): New test.

[Stefan Monnier]

branch: master
commit 57b22f490dfb32d3b298c83716cf8f7d7d2c6e25
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * 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 98e6b33..6dc5299 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)