/[emacs]/emacs/lisp/progmodes/pascal.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/pascal.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by nickrob, Mon Aug 1 08:37:48 2005 UTC revision 1.47 by rfrancoise, Sat Sep 24 13:43:58 2005 UTC
# Line 1470  The default is a name found in the buffe Line 1470  The default is a name found in the buffe
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: "

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26