Lines Matching defs:make
30 ;; This package attempts to make dealing with Unix 'tar' archives easier.
161 (defmacro make-tar-header (name mode uid git size date ck lt ln
181 (defmacro make-tar-desc (data-start tokens)
246 (make-tar-header
400 (make-directory dir t))
416 (make-progress-reporter "Parsing tar file..."
439 (push (make-tar-desc pos tokens) result)
447 (make-local-variable 'tar-parse-info)
467 (set (make-local-variable 'tar-header-offset) (position-bytes (point)))
473 (let ((map (make-keymap)))
509 (cons "Immediate" (make-sparse-keymap "Immediate")))
521 (cons "Mark" (make-sparse-keymap "Mark")))
531 (cons "Operate" (make-sparse-keymap "Operate")))
573 ;; rms: with permanent locals, it should now be possible to make this work
575 (make-local-variable 'tar-header-offset)
576 (make-local-variable 'tar-parse-info)
577 (set (make-local-variable 'require-final-newline) nil) ; binary data, dude...
578 (set (make-local-variable 'revert-buffer-function) 'tar-mode-revert)
579 (set (make-local-variable 'local-enable-local-variables) nil)
580 (set (make-local-variable 'next-line-add-newlines) nil)
582 (set (make-local-variable 'file-precious-flag) t)
584 (set (make-local-variable 'write-contents-functions) '(tar-mode-write-file))
605 (make-local-variable 'tar-subfile-mode)
682 ;; Just make sure this doesn't get an error.
792 (make-local-variable 'tar-superior-buffer)
793 (make-local-variable 'tar-superior-descriptor)
1060 (substring (concat new-name (make-string 99 0)) 0 99)))
1111 ;; ok, make sure we didn't botch it.
1134 to make your changes permanent."
1146 ;; We must make the current buffer unibyte temporarily to avoid
1179 (insert (make-string (- subfile-size-pad subfile-size) 0))
1221 (m (set-marker (make-marker) tar-header-offset)))
1273 (insert (make-string (- goal-end (point-max)) ?\0)))))))