;;; options.el --- edit Options command for Emacs
-;; Copyright (C) 1985, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2001-2015 Free Software Foundation, Inc.
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
;; Obsolete-since: 22.1
;; This file is part of GNU Emacs.
(princ "This facility is obsolete; we recommend using M-x customize instead.")
(mapatoms (function (lambda (sym)
- (if (user-variable-p sym)
+ (if (custom-variable-p sym)
(setq vars (cons sym vars))))))
(setq vars (sort vars 'string-lessp))
(while vars
;; Edit Options mode is suitable only for specially formatted data.
(put 'Edit-options-mode 'mode-class 'special)
-(defun Edit-options-mode ()
+(define-derived-mode Edit-options-mode emacs-lisp-mode "Options"
"\\<Edit-options-mode-map>\
Major mode for editing Emacs user option settings.
Special commands are:
Each variable description is a paragraph.
For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph] move back and forward by paragraphs."
- (kill-all-local-variables)
- (set-syntax-table emacs-lisp-mode-syntax-table)
- (use-local-map Edit-options-mode-map)
- (make-local-variable 'paragraph-separate)
- (setq paragraph-separate "[^\^@-\^?]")
- (make-local-variable 'paragraph-start)
- (setq paragraph-start "\t")
- (setq truncate-lines t)
- (setq major-mode 'Edit-options-mode)
- (setq mode-name "Options")
- (run-mode-hooks 'Edit-options-mode-hook))
+ (setq-local paragraph-separate "[^\^@-\^?]")
+ (setq-local paragraph-start "\t")
+ (setq-local truncate-lines t))
(defun Edit-options-set () (interactive)
(Edit-options-modify