diff --git a/devhelp.el b/devhelp.el
index 6b3d9a1ce9..05aeb1e18e 100644
--- a/devhelp.el
+++ b/devhelp.el
@@ -48,6 +48,10 @@
;; "~/.guix-profile/share/doc/"
;; "~/.guix-profile/share/gtk-doc/html/"))
+;; Do you think it makes sense to automatically detect this (if the
+;; user has a ~/.guix-profile directory) and make the changes to the
+;; default value?
+
;; You can also bookmark pages, with the standard `bookmark-set' function.
;;; Code:
@@ -89,7 +93,7 @@ Integer means use that many columns. Nil means use full window width."
Note that on GNU Guix, Nix or other FHS (Filesystem Hierarchy Standard)
non-compliant distributions, the default value won't work. For GNU Guix,
-set it to '(\"/run/current-system/profile/share/doc/\"
+set it to \\='(\"/run/current-system/profile/share/doc/\"
\"/run/current-system/profile/share/gtk-doc/html/\"
\"~/.guix-profile/share/doc/\" \"~/.guix-profile/share/gtk-doc/html/\")."
:type '(repeat directory))
@@ -147,6 +151,7 @@ absolute path to it."
,(expand-file-name (dom-attr sec 'link) base)
,(mapcar #'process-section (children-by-tag
sec 'sub)))))
+ ;; `List' would be better here, right?
`(,(or (dom-attr dom 'title) "Untitled")
,(or (dom-attr dom 'name) (file-name-base file))
,(or (dom-attr dom 'language) "any")
@@ -219,6 +224,7 @@ If a single file was opened, only show that book's table of contents."
See `devhelp-toc' for more details."
(let ((inhibit-read-only t))
(erase-buffer)
+ ;; Why not prepare the document in SXML and then use `dom-print'?
(insert
"Table of contents"
(let ((book-tocs
@@ -447,6 +453,8 @@ When BASE is given, use it to make relative URLs absolute."
(recenter)))
(defun devhelp-history-back (&optional n)
+ ;; Is the variable actually optional, or won't the + raise a wrong
+ ;; type signal if invoked without an argument?
"Go to the previous page.
When prefix argument N is given, go to Nth previous page."