summaryrefslogtreecommitdiff
path: root/lisp/progmodes/vhdl-mode.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-08-15 16:02:20 -0700
committerLars Ingebrigtsen <larsi@gnus.org>2019-08-15 16:02:20 -0700
commitb3713265cbb8eb591ac832ae4c35bf8185544467 (patch)
treeb614a8f9bb8322bbcf17a4ba5182ed228090fb62 /lisp/progmodes/vhdl-mode.el
parent7aefbe86f22a1c0b7d329c1931d0297f801e1f83 (diff)
downloademacs-b3713265cbb8eb591ac832ae4c35bf8185544467.tar.gz
Rename variables and functions with "auto-load" in their names
* doc/emacs/building.texi (Lisp Libraries): Adjust documentation. * lisp/help-fns.el (help--symbol-completion-table): Adjust usage. * lisp/help-fns.el (help-enable-completion-autoload): Change name from auto-load and declare an obsolete alias (bug#13418). * lisp/help.el (help-enable-autoload): Ditto. * lisp/progmodes/vhdl-mode.el: Ditto. (vhdl-create-mode-menu, vhdl-mode): Adjust usage. (vhdl-autoload-project): Rename from auto-load and declare an obsolete alias.
Diffstat (limited to 'lisp/progmodes/vhdl-mode.el')
-rw-r--r--lisp/progmodes/vhdl-mode.el32
1 files changed, 19 insertions, 13 deletions
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 2c947f3b050..8cdf9cd34a1 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -692,7 +692,7 @@ browser. The current project can also be changed temporarily in the menu."
replaced by the user name (allows you to have user-specific project setups).
The first entry is used as file name to import/export individual project
setups. All entries are used to automatically import project setups at
-startup (see option `vhdl-project-auto-load'). Projects loaded from the
+startup (see option `vhdl-project-autoload'). Projects loaded from the
first entry are automatically made current. Hint: specify local project
setups in first entry, global setups in following entries; loading a local
project setup will make it current, while loading the global setups
@@ -702,7 +702,11 @@ in global directories)."
:type '(repeat (string :tag "File name" "\\1.prj"))
:group 'vhdl-project)
-(defcustom vhdl-project-auto-load '(startup)
+
+(define-obsolete-variable-alias 'vhdl-project-auto-load
+ 'vhdl-project-autoload "27.1")
+
+(defcustom vhdl-project-autoload '(startup)
"Automatically load project setups from files.
All project setup files that match the file names specified in option
`vhdl-project-file-name' are automatically loaded. The project of the
@@ -3673,11 +3677,11 @@ STRING are replaced by `-' and substrings are converted to lower case."
["Setup File Name..." (customize-option 'vhdl-project-file-name) t]
("Auto Load Setup File"
["At Startup"
- (customize-set-variable 'vhdl-project-auto-load
- (if (memq 'startup vhdl-project-auto-load)
- (delq 'startup vhdl-project-auto-load)
- (cons 'startup vhdl-project-auto-load)))
- :style toggle :selected (memq 'startup vhdl-project-auto-load)])
+ (customize-set-variable 'vhdl-project-autoload
+ (if (memq 'startup vhdl-project-autoload)
+ (delq 'startup vhdl-project-autoload)
+ (cons 'startup vhdl-project-autoload)))
+ :style toggle :selected (memq 'startup vhdl-project-autoload)])
["Sort Projects"
(customize-set-variable 'vhdl-project-sort (not vhdl-project-sort))
:style toggle :selected vhdl-project-sort]
@@ -4683,7 +4687,7 @@ Usage:
Emacs with VHDL Mode (i.e. load a VHDL file or use \"emacs -l
vhdl-mode\") in a directory with an existing project setup file, it is
automatically loaded and its project activated if option
- `vhdl-project-auto-load' is non-nil. Names/paths of the project setup
+ `vhdl-project-autoload' is non-nil. Names/paths of the project setup
files can be specified in option `vhdl-project-file-name'. Multiple
project setups can be automatically loaded from global directories.
This is an alternative to specifying project setups with option
@@ -13126,7 +13130,7 @@ File statistics: \"%s\"\n\
(list (cons new-name project-entry))))
(vhdl-update-mode-menu)))
-(defun vhdl-auto-load-project ()
+(defun vhdl-autoload-project ()
"Automatically load project setup at startup."
(let ((file-name-list vhdl-project-file-name)
file-list list-length)
@@ -13145,12 +13149,14 @@ File statistics: \"%s\"\n\
(not (> list-length 0)))
(setq list-length (1- list-length))
(setq file-list (cdr file-list)))))
+(define-obsolete-function-alias 'vhdl-auto-load-project
+ #'vhdl-autoload-project "27.1")
;; automatically load project setup when idle after startup
-(when (memq 'startup vhdl-project-auto-load)
+(when (memq 'startup vhdl-project-autoload)
(if noninteractive
- (vhdl-auto-load-project)
- (vhdl-run-when-idle .1 nil 'vhdl-auto-load-project)))
+ (vhdl-autoload-project)
+ (vhdl-run-when-idle .1 nil 'vhdl-autoload-project)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -17635,7 +17641,7 @@ specified by a target."
'vhdl-project-alist
'vhdl-project
'vhdl-project-file-name
- 'vhdl-project-auto-load
+ 'vhdl-project-autoload
'vhdl-project-sort
'vhdl-compiler-alist
'vhdl-compiler