Lines Matching +defs:save +defs:point
77 "If non-nil then highlight the ASCII character corresponding to point."
125 "Overlay used to highlight ASCII element corresponding to current point.")
197 into the buffer at the current point.
200 into the buffer at the current point.
203 into the buffer at the current point.
217 (original-point (- (point) (point-min))))
219 (setq original-point (1- original-point)))
228 (setq original-point (+ (count-lines (point-min) (point))
229 original-point))
230 (or (bolp) (setq original-point (1- original-point))))
239 (hexl-goto-address original-point)
273 (add-hook 'write-contents-functions 'hexl-save-buffer nil t)
293 'hexl-print-current-point-info)
295 (eldoc-remove-command "hexl-save-buffer"
327 (defvar hexl-in-save-buffer nil)
329 (defun hexl-save-buffer ()
332 (if hexl-in-save-buffer nil
337 (start (point-min))
338 (end (point-max))
345 (let ((hexl-in-save-buffer t))
346 (save-buffer))
348 (delete-region (point-min) (point-max))
379 (original-point (1+ (hexl-current-address))))
381 (remove-hook 'write-contents-functions 'hexl-save-buffer t)
383 (goto-char original-point)
384 ;; Maybe adjust point for the removed CR characters.
386 (setq original-point (- original-point
387 (count-lines (point-min) (point))))
388 (or (bobp) (setq original-point (1+ original-point))))
389 (goto-char original-point)))
424 (original-point (1+ (hexl-current-address))))
426 (remove-hook 'write-contents-functions 'hexl-save-buffer t)
428 (goto-char original-point))))
433 (let ((current-column (- (% (- (point) (point-min) -1) 68) 11))
440 (+ (* (/ (- (point) (point-min) -1) 68) 16)
448 (defun hexl-print-current-point-info ()
457 (+ (* (/ address 16) 68) 10 (point-min) (/ (* (% address 16) 5) 2)))
494 ;; move point functions
613 With prefix arg N, puts point N bytes of the way from the true beginning."
615 (push-mark (point))
621 (push-mark (point))
627 (goto-char (+ (* (/ (point) 68) 68) 11)))
720 (apply 'call-process-region (point-min) (point-max)
730 (if (> (point) (hexl-address-to-marker hexl-max-address))
744 (apply 'call-process-region (point-min) (point-max)
748 (defun hexl-char-after-point ()
749 "Return char for ASCII hex digits at point."
750 (hexl-htoi (char-after (point))
751 (char-after (1+ (point)))))
844 10 (point-min)
848 (+ (* (/ address 16) 68) 51 (point-min) (% address 16)))
850 (if (= (point) ascii-position)
871 "Insert a character given by its hexadecimal code ARG times at point."
879 "Insert hexadecimal string STR at point ARG times.
904 "Insert a character given by its decimal code ARG times at point."
912 "Insert a character given by its octal code ARG times at point."
923 element under the point is highlighted.
973 "Return the range of address region for the point.
981 "Find and highlight the ASCII element corresponding to current point."
983 (- (point) (current-column))
1104 (define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer)