Mercurial > emacs

comparison lisp/cedet/semantic/db-file.el @ 104515:fc482eb30cf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* cedet/semantic/db-file.el (semanticdb-save-database-hooks): Revert last change, as this is an abnormal hook.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 26 Sep 2009 18:09:29 +0000
parents c65d65798b34
children 7f4c7f5c0eba
comparison
equal deleted inserted replaced
104514:c65d65798b34 104515:fc482eb30cf7
66 everywhere, or `project', which enables saving in any directory that 66 everywhere, or `project', which enables saving in any directory that
67 passes a list of predicates in `semanticdb-project-predicate-functions'." 67 passes a list of predicates in `semanticdb-project-predicate-functions'."
68 :group 'semanticdb 68 :group 'semanticdb
69 :type nil) 69 :type nil)
70 70
71 (defcustom semanticdb-save-database-hook nil 71 (defcustom semanticdb-save-database-hooks nil
72 "Hook run after a database is saved. 72 "Abnormal hook run after a database is saved.
73 Each function is called with one argument, the object representing 73 Each function is called with one argument, the object representing
74 the database recently written." 74 the database recently written."
75 :group 'semanticdb 75 :group 'semanticdb
76 :type 'hook) 76 :type 'hook)
77
78 (semantic-varalias-obsolete 'semanticdb-save-database-hooks
79 'semanticdb-save-database-hook)
80 77
81 (defvar semanticdb-dir-sep-char (if (boundp 'directory-sep-char) 78 (defvar semanticdb-dir-sep-char (if (boundp 'directory-sep-char)
82 (symbol-value 'directory-sep-char) 79 (symbol-value 'directory-sep-char)
83 ?/) 80 ?/)
84 "Character used for directory separation. 81 "Character used for directory separation.