Mercurial > emacs
comparison lisp/autoinsert.el @ 91302:56a72e2bd635
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-306
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 29 Dec 2007 02:39:17 +0000 |
| parents | 14c4a6aac623 8ac891c8317e |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91301:7774e5860c70 | 91302:56a72e2bd635 |
|---|---|
| 177 ;; Keywords: " | 177 ;; Keywords: " |
| 178 '(require 'finder) | 178 '(require 'finder) |
| 179 ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords))) | 179 ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords))) |
| 180 '(setq v1 (mapcar (lambda (x) (list (symbol-name (car x)))) | 180 '(setq v1 (mapcar (lambda (x) (list (symbol-name (car x)))) |
| 181 finder-known-keywords) | 181 finder-known-keywords) |
| 182 v2 (mapconcat (lambda (x) (format "%10.0s: %s" (car x) (cdr x))) | 182 v2 (mapconcat (lambda (x) (format "%12s: %s" (car x) (cdr x))) |
| 183 finder-known-keywords | 183 finder-known-keywords |
| 184 "\n")) | 184 "\n")) |
| 185 ((let ((minibuffer-help-form v2)) | 185 ((let ((minibuffer-help-form v2)) |
| 186 (completing-read "Keyword, C-h: " v1 nil t)) | 186 (completing-read "Keyword, C-h: " v1 nil t)) |
| 187 str ", ") & -2 " | 187 str ", ") & -2 " |