1 # -*- coding: utf-8 -*-
3 # contributor: Orestis Markou
4 # contributor: Yasser González Fernández <yglez@uh.cu>
12 (concat "\n" (make-string (current-column) 32)))
16 (if (not (string= (nth 0 x) ""))
17 (concat "- " (char-to-string 96) (nth 0 x)
18 (char-to-string 96) ":")))
23 (replace-regexp-in-string "[[:blank:]]*$" ""
24 (replace-regexp-in-string "^[[:blank:]]*" "" x)))
26 (mapcar '(lambda (x) (split-string x "="))
27 (split-string text ",")))
33 (list "" "Arguments:" args (make-string 3 34))