From 7b1db08ea2d1956b7b19336bca307d934a752fba Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 15 Jun 2018 13:36:43 +0200 Subject: [PATCH] Replace :devdocs with set-devdocs! autodef --- modules/feature/lookup/autoload/devdocs.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/modules/feature/lookup/autoload/devdocs.el b/modules/feature/lookup/autoload/devdocs.el index 2b2c4a514..9233a5750 100644 --- a/modules/feature/lookup/autoload/devdocs.el +++ b/modules/feature/lookup/autoload/devdocs.el @@ -1,11 +1,20 @@ ;;; feature/lookup/autoload/devdocs.el -*- lexical-binding: t; -*- ;;;###if (featurep! +devdocs) +;;;###autodef +(defun set-devdocs! (modes docset) + "Map major MODES (one major-mode symbol or a list of them) to a devdocs +DOCSET (a string). + +See `devdocs-alist' for the defaults. " + (after! (:when (boundp 'devdocs-alist)) + (map-put devdocs-alist mode docsets))) + ;;;###autoload (def-setting! :devdocs (modes docset) "Map major MODES (one major-mode symbol or a list of them) to a devdocs DOCSET (a string). See `devdocs-alist' for the defaults. " - `(dolist (mode ',modes) - (push (cons mode ,docset) devdocs-alist))) + :obsolete set-devdocs! + `(set-devdocs! ,modes ,docset))