/[emacs]/emacs/lisp/emacs-lisp/elint.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/elint.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by rms, Fri Dec 3 00:11:21 2004 UTC revision 1.10 by rms, Mon Dec 13 19:34:46 2004 UTC
# Line 50  Line 50 
50    "*The buffer to insert lint messages in.")    "*The buffer to insert lint messages in.")
51    
52  ;;;  ;;;
53    ;;; Data
54    ;;;
55    
56    (defconst elint-standard-variables
57      '(abbrev-mode auto-fill-function buffer-auto-save-file-name
58         buffer-backed-up buffer-display-count buffer-display-table buffer-display-time buffer-file-coding-system buffer-file-format
59         buffer-file-name buffer-file-number buffer-file-truename
60         buffer-file-type buffer-invisibility-spec buffer-offer-save
61         buffer-read-only buffer-saved-size buffer-undo-list
62         cache-long-line-scans case-fold-search ctl-arrow cursor-type comment-column
63         default-directory defun-prompt-regexp desktop-save-buffer enable-multibyte-characters fill-column fringes-outside-margins goal-column
64         header-line-format indicate-buffer-boundaries indicate-empty-lines
65         left-fringe-width
66         left-margin left-margin-width line-spacing local-abbrev-table local-write-file-hooks major-mode
67         mark-active mark-ring mode-line-buffer-identification
68         mode-line-format mode-line-modified mode-line-process mode-name
69         overwrite-mode
70         point-before-scroll right-fringe-width right-margin-width
71         scroll-bar-width scroll-down-aggressively scroll-up-aggressively selective-display
72         selective-display-ellipses tab-width truncate-lines vc-mode vertical-scroll-bar)
73      "Standard buffer local vars.")
74    
75    (defconst elint-unknown-builtin-args
76      '((while test &rest forms)
77        (insert-before-markers-and-inherit &rest text)
78        (catch tag &rest body)
79        (and &rest args)
80        (funcall func &rest args)
81        (insert &rest args)
82        (vconcat &rest args)
83        (run-hook-with-args hook &rest args)
84        (message-or-box string &rest args)
85        (save-window-excursion &rest body)
86        (append &rest args)
87        (logior &rest args)
88        (progn &rest body)
89        (insert-and-inherit &rest args)
90        (message-box string &rest args)
91        (prog2 x y &rest body)
92        (prog1 first &rest body)
93        (insert-before-markers &rest args)
94        (call-process-region start end program &optional delete
95                             destination display &rest args)
96        (concat &rest args)
97        (vector &rest args)
98        (run-hook-with-args-until-success hook &rest args)
99        (track-mouse &rest body)
100        (unwind-protect bodyform &rest unwindforms)
101        (save-restriction &rest body)
102        (quote arg)
103        (make-byte-code &rest args)
104        (or &rest args)
105        (cond &rest clauses)
106        (start-process name buffer program &rest args)
107        (run-hook-with-args-until-failure hook &rest args)
108        (if cond then &rest else)
109        (apply function &rest args)
110        (format string &rest args)
111        (encode-time second minute hour day month year zone &rest args)
112        (min &rest args)
113        (logand &rest args)
114        (logxor &rest args)
115        (max &rest args)
116        (list &rest args)
117        (message string &rest args)
118        (defvar symbol init doc)
119        (call-process program &optional infile destination display &rest args)
120        (with-output-to-temp-buffer bufname &rest body)
121        (nconc &rest args)
122        (save-excursion &rest body)
123        (run-hooks &rest hooks)
124        (/ x y &rest zs)
125        (- x &rest y)
126        (+ &rest args)
127        (* &rest args)
128        (interactive &optional args))
129      "Those built-ins for which we can't find arguments.")
130    
131    ;;;
132  ;;; ADT: top-form  ;;; ADT: top-form
133  ;;;  ;;;
134    
# Line 724  If no documentation could be found args Line 803  If no documentation could be found args
803              (if list list              (if list list
804                (elint-find-builtins))))                (elint-find-builtins))))
805    
 ;;;  
 ;;; Data  
 ;;;  
   
 (defconst elint-standard-variables  
   '(abbrev-mode auto-fill-function buffer-auto-save-file-name  
      buffer-backed-up buffer-display-count buffer-display-table buffer-display-time buffer-file-coding-system buffer-file-format  
      buffer-file-name buffer-file-number buffer-file-truename  
      buffer-file-type buffer-invisibility-spec buffer-offer-save  
      buffer-read-only buffer-saved-size buffer-undo-list  
      cache-long-line-scans case-fold-search ctl-arrow cursor-type comment-column  
      default-directory defun-prompt-regexp desktop-save-buffer enable-multibyte-characters fill-column fringes-outside-margins goal-column  
      header-line-format indicate-buffer-boundaries indicate-empty-lines  
      left-fringe-width  
      left-margin left-margin-width line-spacing local-abbrev-table local-write-file-hooks major-mode  
      mark-active mark-ring mode-line-buffer-identification  
      mode-line-format mode-line-modified mode-line-process mode-name  
      overwrite-mode  
      point-before-scroll right-fringe-width right-margin-width  
      scroll-bar-width scroll-down-aggressively scroll-up-aggressively selective-display  
      selective-display-ellipses tab-width truncate-lines vc-mode vertical-scroll-bar)  
   "Standard buffer local vars.")  
   
 (defconst elint-unknown-builtin-args  
   '((while test &rest forms)  
     (insert-before-markers-and-inherit &rest text)  
     (catch tag &rest body)  
     (and &rest args)  
     (funcall func &rest args)  
     (insert &rest args)  
     (vconcat &rest args)  
     (run-hook-with-args hook &rest args)  
     (message-or-box string &rest args)  
     (save-window-excursion &rest body)  
     (append &rest args)  
     (logior &rest args)  
     (progn &rest body)  
     (insert-and-inherit &rest args)  
     (message-box string &rest args)  
     (prog2 x y &rest body)  
     (prog1 first &rest body)  
     (insert-before-markers &rest args)  
     (call-process-region start end program &optional delete  
                          destination display &rest args)  
     (concat &rest args)  
     (vector &rest args)  
     (run-hook-with-args-until-success hook &rest args)  
     (track-mouse &rest body)  
     (unwind-protect bodyform &rest unwindforms)  
     (save-restriction &rest body)  
     (quote arg)  
     (make-byte-code &rest args)  
     (or &rest args)  
     (cond &rest clauses)  
     (start-process name buffer program &rest args)  
     (run-hook-with-args-until-failure hook &rest args)  
     (if cond then &rest else)  
     (apply function &rest args)  
     (format string &rest args)  
     (encode-time second minute hour day month year zone &rest args)  
     (min &rest args)  
     (logand &rest args)  
     (logxor &rest args)  
     (max &rest args)  
     (list &rest args)  
     (message string &rest args)  
     (defvar symbol init doc)  
     (call-process program &optional infile destination display &rest args)  
     (with-output-to-temp-buffer bufname &rest body)  
     (nconc &rest args)  
     (save-excursion &rest body)  
     (run-hooks &rest hooks)  
     (/ x y &rest zs)  
     (- x &rest y)  
     (+ &rest args)  
     (* &rest args)  
     (interactive &optional args))  
   "Those built-ins for which we can't find arguments.")  
   
806  (provide 'elint)  (provide 'elint)
807    
808  ;;; arch-tag: b2f061e2-af84-4ddc-8e39-f5e969ac228f  ;;; arch-tag: b2f061e2-af84-4ddc-8e39-f5e969ac228f

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26