summaryrefslogtreecommitdiff
path: root/test/lisp/ffap-tests.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2017-09-13 15:46:16 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2017-09-13 15:54:25 -0700
commit5da53a01912c2f5d46f5df4ef8cc13a34b5017d4 (patch)
tree63f91a55c570c93b20c9362019ada9241a677d7e /test/lisp/ffap-tests.el
parente7d6c622090dd2f4c77fbd04aba89c30a75514dd (diff)
downloademacs-5da53a01912c2f5d46f5df4ef8cc13a34b5017d4.tar.gz
Prefer HTTPS to HTTP for gnu.org
This patch just changes code files; a followup companion patch (much larger) will affect the commentary. This part is separated out to make it easier to review. * .dir-locals.el (change-log-mode): * lisp/org/org-info.el (org-info-other-documents) (org-info-map-html-url): * lisp/org/ox-html.el (org-html-creator-string): * lisp/startup.el (fancy-startup-text, fancy-about-text) (fancy-splash-head): * test/lisp/ffap-tests.el (ffap-other-window--bug-25352): * test/lisp/thingatpt-tests.el (thing-at-point-test-data): Use HTTPS instead of HTTP.
Diffstat (limited to 'test/lisp/ffap-tests.el')
-rw-r--r--test/lisp/ffap-tests.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/ffap-tests.el b/test/lisp/ffap-tests.el
index 1862c6c3277..0b90d640364 100644
--- a/test/lisp/ffap-tests.el
+++ b/test/lisp/ffap-tests.el
@@ -17,7 +17,7 @@
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
@@ -28,7 +28,7 @@
(require 'ffap)
(ert-deftest ffap-tests-25243 ()
- "Test for http://debbugs.gnu.org/25243 ."
+ "Test for https://debbugs.gnu.org/25243 ."
(let ((file (make-temp-file "test-Bug#25243")))
(unwind-protect
(with-temp-file file
@@ -72,12 +72,12 @@ Host = example.com\n")
left alone when opening a URL in an external browser."
(cl-letf* ((old (current-window-configuration))
((symbol-function 'ffap-prompter)
- (lambda () "http://www.gnu.org"))
+ (lambda () "https://www.gnu.org"))
(urls nil)
(ffap-url-fetcher (lambda (url) (push url urls) nil)))
(should-not (ffap-other-window))
(should (equal (current-window-configuration) old))
- (should (equal urls '("http://www.gnu.org")))))
+ (should (equal urls '("https://www.gnu.org")))))
(provide 'ffap-tests)