Mercurial > emacs
changeset 15441:4b82998394ae
(local-variables-section): Deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 16 Jun 1996 23:30:31 +0000 |
| parents | 87c6c9287f45 |
| children | b4c8360e450e |
| files | lisp/skeleton.el |
| diffstat | 1 files changed, 26 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/skeleton.el Sun Jun 16 23:09:17 1996 +0000 +++ b/lisp/skeleton.el Sun Jun 16 23:30:31 1996 +0000 @@ -382,32 +382,32 @@ ;; Maybe belongs into simple.el or elsewhere -(define-skeleton local-variables-section - "Insert a local variables section. Use current comment syntax if any." - () - '(save-excursion - (if (re-search-forward page-delimiter nil t) - (error "Not on last page."))) - comment-start "Local Variables:" comment-end \n - comment-start "mode: " - (completing-read "Mode: " obarray - (lambda (symbol) - (if (commandp symbol) - (string-match "-mode$" (symbol-name symbol)))) - t) - & -5 | '(kill-line 0) & -1 | comment-end \n - ( (completing-read (format "Variable, %s: " skeleton-subprompt) - obarray - (lambda (symbol) - (or (eq symbol 'eval) - (user-variable-p symbol))) - t) - comment-start str ": " - (read-from-minibuffer "Expression: " nil read-expression-map nil - 'read-expression-history) | _ - comment-end \n) - resume: - comment-start "End:" comment-end) +;;;(define-skeleton local-variables-section +;;; "Insert a local variables section. Use current comment syntax if any." +;;; () +;;; '(save-excursion +;;; (if (re-search-forward page-delimiter nil t) +;;; (error "Not on last page."))) +;;; comment-start "Local Variables:" comment-end \n +;;; comment-start "mode: " +;;; (completing-read "Mode: " obarray +;;; (lambda (symbol) +;;; (if (commandp symbol) +;;; (string-match "-mode$" (symbol-name symbol)))) +;;; t) +;;; & -5 | '(kill-line 0) & -1 | comment-end \n +;;; ( (completing-read (format "Variable, %s: " skeleton-subprompt) +;;; obarray +;;; (lambda (symbol) +;;; (or (eq symbol 'eval) +;;; (user-variable-p symbol))) +;;; t) +;;; comment-start str ": " +;;; (read-from-minibuffer "Expression: " nil read-expression-map nil +;;; 'read-expression-history) | _ +;;; comment-end \n) +;;; resume: +;;; comment-start "End:" comment-end) ;; Variables and command for automatically inserting pairs like () or "".