mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(local-variables-section): Deleted.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-16 23:30:31 +00:00
parent 45be8a1e58
commit a013d266d1
1 changed files with 26 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

52
lisp/skeleton.el
View file

@ -382,32 +382,32 @@ automatically, and you are prompted to fill in the variable parts.")))
;; 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 "".