diff options
Diffstat (limited to 'lisp/cedet/srecode/table.el')
| -rw-r--r-- | lisp/cedet/srecode/table.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/cedet/srecode/table.el b/lisp/cedet/srecode/table.el index 67e363499f4..7a0600c3f81 100644 --- a/lisp/cedet/srecode/table.el +++ b/lisp/cedet/srecode/table.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2007-2019 Free Software Foundation, Inc. -;; Author: Eric M. Ludlam <eric@siege-engine.com> +;; Author: Eric M. Ludlam <zappo@gnu.org> ;; This file is part of GNU Emacs. @@ -187,8 +187,8 @@ INIT are the initialization parameters for the new template table." (new (apply 'srecode-template-table (file-name-nondirectory file) :file file - :filesize (nth 7 attr) - :filedate (nth 5 attr) + :filesize (file-attribute-size attr) + :filedate (file-attribute-modification-time attr) :major-mode mode init ))) @@ -201,8 +201,8 @@ INIT are the initialization parameters for the new template table." ;; into the search table first, allowing lower priority items ;; to be the items found in the search table. (object-sort-list mt 'modetables (lambda (a b) - (> (oref a :priority) - (oref b :priority)))) + (> (oref a priority) + (oref b priority)))) ;; Return it. new)) @@ -239,9 +239,9 @@ Use PREDICATE is the same as for the `sort' function." (cl-defmethod srecode-dump ((tab srecode-mode-table)) "Dump the contents of the SRecode mode table TAB." (princ "MODE TABLE FOR ") - (princ (oref tab :major-mode)) + (princ (oref tab major-mode)) (princ "\n--------------------------------------------\n\nNumber of tables: ") - (let ((subtab (oref tab :tables))) + (let ((subtab (oref tab tables))) (princ (length subtab)) (princ "\n\n") (while subtab @@ -254,17 +254,17 @@ Use PREDICATE is the same as for the `sort' function." (princ "Template Table for ") (princ (eieio-object-name-string tab)) (princ "\nPriority: ") - (prin1 (oref tab :priority)) - (when (oref tab :application) + (prin1 (oref tab priority)) + (when (oref tab application) (princ "\nApplication: ") - (princ (oref tab :application))) - (when (oref tab :framework) + (princ (oref tab application))) + (when (oref tab framework) (princ "\nFramework: ") - (princ (oref tab :framework))) - (when (oref tab :project) + (princ (oref tab framework))) + (when (oref tab project) (require 'srecode/find) ; For srecode-template-table-in-project-p (princ "\nProject Directory: ") - (princ (oref tab :project)) + (princ (oref tab project)) (when (not (srecode-template-table-in-project-p tab)) (princ "\n ** Not Usable in this file. **"))) (princ "\n\nVariables:\n") |