mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

* lisp/ada-prj.el (ada-prj-initialize-values): Fix use of deleted

Browse Source 
ada-xref-set-default-prj-values.
  (ada-prj-display-page): Ditto.

* list/ada-xref.el (ada-gnatstub-opts): Fix doc string.
  (ada-make-filename-from-adaname): Fix free variable.
This commit is contained in:
Juanma Barranquero 2008-07-30 09:42:46 +00:00
parent 3f6b73eff6
commit ff6d2a9e33
3 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2008-07-30 Stepehen Leake <stephen_leake@stephe-leake.org>
* lisp/ada-prj.el (ada-prj-initialize-values): Fix use of deleted
ada-xref-set-default-prj-values.
(ada-prj-display-page): Ditto.
* list/ada-xref.el (ada-gnatstub-opts): Fix doc string.
(ada-make-filename-from-adaname): Fix free variable.
2008-07-30 Dan Nicolaescu <dann@ics.uci.edu>
* vc-git.el (vc-git-status-printer): Synchronize with the default.
@ -17,12 +26,11 @@
tasks, as well as extern declarations of tasks for indenting and
for foward/backward expression.
2008-07-30 Wilson Snyder <wsnyder@wsnyder.org>
2008-07-30 Wilson Snyder <wsnyder@wsnyder.org>
* verilog-mode (verilog-read-decls): Allow AUTORESET to work with
SV 'logic' signals. [Julian Gorfajn]
(verilog-auto-inst-column): Make verilog-auto-inst-column
customizable.
(verilog-auto-inst-column): Make verilog-auto-inst-column customizable.
(verilog-string-replace-matches): Avoid recursion with small
replacements.
(verilog-auto-inst-param-value, verilog-mode-version)
@ -31,10 +39,9 @@
(verilog-auto-inst-port, verilog-simplify-range-expression): Add
verilog-auto-inst-param-value option for AUTOINST. [David Rogoff]
This allows parameters to be replaced with their values, on the
expansion of an AUTOINST with Verilog 2001 style parameter
settings.
expansion of an AUTOINST with Verilog 2001 style parameter settings.
2008-07-30 David Lord <david.lord@phonecoop.coop>
2008-07-30 David Lord <david.lord@phonecoop.coop>
* calendar/timeclock.el (timeclock-day-projects): Change a `cdr'
to `cddr'.

5
lisp/progmodes/ada-prj.el
View File

@ -104,7 +104,7 @@ If no project file is found, return the default values."
;; Set default values (except for the file name if this was given
;; in the buffer
(ada-xref-set-default-prj-values symbol ada-buffer)
(set symbol (ada-default-prj-properties))
(if (and filename (not (string= filename "")))
(set symbol (plist-put (eval symbol) 'filename filename)))
))
@ -463,8 +463,7 @@ connect to the target when working with cross-environments" t)
(widget-insert "______________________________________________________________________\n\n ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(ada-xref-set-default-prj-values
'ada-prj-current-values ada-prj-ada-buffer)
(setq ada-prj-current-values (ada-default-prj-properties))
(ada-prj-display-page 1))
"Reset to Default Values")
(widget-insert " ")

4
lisp/progmodes/ada-xref.el
View File

@ -157,7 +157,7 @@ this string is not empty. It is set whenever a project file is found."
:type '(file :must-match t) :group 'ada)
(defcustom ada-gnatstub-opts "-q -I${src_dir}"
"*List of the options to pass to `gnatsub' to generate the body of a package.
"*Options to pass to `gnatsub' to generate the body of a package.
This has the same syntax as in the project file (with variable substitution)."
:type 'string :group 'ada)
@ -2276,7 +2276,7 @@ Return the position of the declaration in the buffer, or nil if not found."
"Determine the filename in which ADANAME is found.
This is a GNAT specific function that uses gnatkrunch."
(let ((krunch-buf (generate-new-buffer "*gkrunch*"))
(cross-prefix (plist-get plist 'cross_prefix)))
(cross-prefix (plist-get (cdr (ada-xref-current-project)) 'cross_prefix)))
(save-excursion
(set-buffer krunch-buf)
;; send adaname to external process `gnatkr'.