procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Declare unused vhdl code in align.el obsolete

Browse source 
* lisp/align.el (align-vhdl-rules-list, align-set-vhdl-rules): Declare
obsolete.  (Bug#6207)
(align-dq-string-modes, align-open-comment-modes): Move vhdl-mode to
definition instead of adding it later.
This commit is contained in:
Stefan Kangas 2019-09-26 12:31:37 +02:00
parent 32558cfe53
commit dd3592564a
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/align.el
View file

@ -206,7 +206,7 @@ If nil, then no messages will ever be printed to the minibuffer."
(defcustom align-dq-string-modes
(append align-lisp-modes align-c++-modes align-perl-modes
'(python-mode))
'(python-mode vhdl-mode))
"A list of modes where double quoted strings should be excluded."
:type '(repeat symbol)
:group 'align)
@ -219,7 +219,7 @@ If nil, then no messages will ever be printed to the minibuffer."
(defcustom align-open-comment-modes
(append align-lisp-modes align-c++-modes align-perl-modes
'(python-mode makefile-mode))
'(python-mode makefile-mode vhdl-mode))
"A list of modes with a single-line comment syntax.
These are comments as in Lisp, which have a beginning, but end with
the line (i.e., `comment-end' is an empty string)."
@ -805,9 +805,7 @@ See the variable `align-exclude-rules-list' for more details.")
(defvar align-regexp-history nil
"Input history for the full user-entered regex in `align-regexp'")
;; Sample extension rule set, for vhdl-mode. This should properly be
;; in vhdl-mode.el itself.
;; Sample extension rule set for vhdl-mode. This is now obsolete.
(defcustom align-vhdl-rules-list
`((vhdl-declaration
(regexp . "\\(signal\\|variable\\|constant\\)\\(\\s-+\\)\\S-")
@ -842,18 +840,14 @@ See the variable `align-exclude-rules-list' for more details.")
"Alignment rules for `vhdl-mode'. See `align-rules-list' for more info."
:type align-rules-list-type
:group 'align)
(put 'align-vhdl-rules-list 'risky-local-variable t)
(make-obsolete-variable 'align-vhdl-rules-list "no longer used." "27.1")
(defun align-set-vhdl-rules ()
"Setup the `align-mode-rules-list' variable for `vhdl-mode'."
(declare (obsolete nil "27.1"))
(setq align-mode-rules-list align-vhdl-rules-list))
(add-hook 'vhdl-mode-hook 'align-set-vhdl-rules)
(add-to-list 'align-dq-string-modes 'vhdl-mode)
(add-to-list 'align-open-comment-modes 'vhdl-mode)
;;; User Functions:
;;;###autoload