1470 |
default "")) |
default "")) |
1471 |
(label (if (not (string= default "")) |
(label (if (not (string= default "")) |
1472 |
;; Do completion with default |
;; Do completion with default |
1473 |
(completing-read (concat "Label: (default " default ") ") |
(completing-read (concat "Label (default " default "): ") |
1474 |
'pascal-comp-defun nil t "") |
'pascal-comp-defun nil t "") |
1475 |
;; There is no default value. Complete without it |
;; There is no default value. Complete without it |
1476 |
(completing-read "Label: " |
(completing-read "Label: " |