+24
-0
lines changedFilter options
+24
-0
lines changed Original file line number Diff line number Diff line change
@@ -306,6 +306,30 @@ and INHERIT-INPUT-METHOD see function `read-string' for more information."
306 306
(let ((str (read-string prompt initial-input history default-value inherit-input-method)))
307 307
(eask-s-replace "\"" "" str)))
308 308 309 +
(defun eask--goto-line (line)
310 +
"Go to LINE."
311 +
(goto-char (point-min))
312 +
(forward-line (1- line)))
313 + 314 +
(defun eask--column-at-point (point)
315 +
"Get column at POINT."
316 +
(save-excursion (goto-char point) (current-column)))
317 + 318 +
(defcustom eask-buffer-name "*eask*"
319 +
"Buffer name is used for temporary storage throughout the life cycle."
320 +
:type 'string
321 +
:group 'eask)
322 + 323 +
(defmacro eask-with-buffer (&rest body)
324 +
"Create a temporary buffer (for this program), and evaluate BODY there."
325 +
(declare (indent 0) (debug t))
326 +
`(with-current-buffer (get-buffer-create ,eask-buffer-name) ,@body))
327 + 328 +
(defmacro eask-with-temp-buffer (&rest body)
329 +
"Create a temporary buffer (for this program), and evaluate BODY there."
330 +
(declare (indent 0) (debug t))
331 +
`(eask-with-buffer (erase-buffer) ,@body))
332 + 309 333
;;
310 334
;;; Progress
311 335 You can’t perform that action at this time.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4