Parcourir la source

eldo.el: Minor tweaks

Bastien Guerry il y a 12 ans
Parent
commit
f7f0445cc1
1 fichiers modifiés avec 3 ajouts et 3 suppressions
  1. 3 3
      mk/eldo.el

+ 3 - 3
mk/eldo.el

@@ -90,7 +90,7 @@
 	    (d (get h 'variable-documentation)))
 	(if (> (length val) 30) (setq val (concat (substring val 0 30) "...")))
 	(insert
-	 "  ~" val "~\n"
+	 " =" val "=\n"
 	 (if version (format "- *Since:* Emacs version %s\n" version) "")
 	 (format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)
 	 (format (concat "- [[" eldo-git-search-string
@@ -109,7 +109,7 @@
 	    (key (mapconcat 'key-description (where-is-internal c eldo-keymaps) ", "))
 	    (args (help-function-arglist c t))
 	    (d (documentation c)))
-	(insert "\n** " (symbol-name c) (if args (format "  =%s=\n" args) "\n"))
+	(insert "\n** " (symbol-name c) (if args (format " =%s=\n" args) "\n"))
 	(org-set-property "CUSTOM_ID" (symbol-name c))
 	(insert
 	 (if (and key (not (string= key ""))) (format "\n- *Access:* ~%s~" key) "")
@@ -136,7 +136,7 @@
 	(if (> (length val) 30) (setq val (concat (substring val 0 30) "...")))
 	(if (> (length type) 30) (setq type (concat (substring type 0 30) "...")))
 	(insert
-	 "  ~" val "~\n\n"
+	 " =" val "=\n\n"
 	 (format "- *Type:* %s\n" type)
 	 (if version (format "- *Since:* Emacs version %s\n" version) "")
 	 (format (concat "- *In file:* [[" eldo-git-raw-file "][%s]]\n") f f)