代码之家 › 专栏 › 技术社区 › prosseek

如何使用emacs/elisp获取当前缓冲区信息的开始/结束?

elisp emacs

prosseek · 技术社区 · 14 年前

我有以下运行figlet的代码,它将输入作为一个范围。如何修改此代码以检查是否未指定b或e,将b设置为当前缓冲区的开头,将e设置为当前缓冲区的结尾?

(defun figlet-region (&optional b e) 
  (interactive "r")
  (shell-command-on-region b e "/opt/local/bin/figlet" (current-buffer) t)
  (comment-region (mark) (point)))
(global-set-key (kbd "C-c C-x") 'figlet-region)

补充

(defun figlet-region (&optional b e) 
  (interactive)
  (let ((b (if mark-active (min (point) (mark)) (point-min)))
        (e (if mark-active (max (point) (mark)) (point-max))))
   (shell-command-on-region b e "/opt/local/bin/figlet" (current-buffer) t)
  (comment-region (mark) (point))))
(global-set-key (kbd "C-c C-x") 'figlet-region)

2 回复 | 直到 14 年前

Sean 14 年前

(defun figlet-region (&optional b e) 
  (interactive "r")
  (shell-command-on-region
   (or b (point-min))
   (or e (point-max))
   "/opt/local/bin/figlet" (current-buffer) t)
  (comment-region (mark) (point)))

b 和 e

你也可以这样做:

(require 'cl)

(defun* figlet-region (&optional (b (point-min)) (e (point-max)))
  # your original function body here
    )

所以我猜你的意思是,你希望能够以交互方式运行命令,即使区域不处于活动状态?也许这对你有用:

(defun figlet-region ()
  (interactive)
  (let ((b (if mark-active (min (point) (mark)) (point-min)))
        (e (if mark-active (max (point) (mark)) (point-max))))
    # ... rest of your original function body ...
      ))

Trey Jackson 14 年前

(unless b (setq b (point-min)))
(unless e (setq e (point-max)))

推荐文章

Community wiki · 进程。退出(0):输出消失?

1 年前

Rorschach · cl循环破坏性修改cons单元

6 年前

Rorschach · 宏在定义时将关键帧视为true

6 年前

Chetna Shah · emacs中给定主模式的加载后评估与挂钩的执行顺序

7 年前

Manoel Vilela · 有没有办法检查是否引用了符号?

7 年前

hw9527 · Elisp变量绑定到自身

7 年前

Aquaactress · 在视觉模式下自动输入Beg End参数

7 年前

Color · emacs解释器如何计算表达式?

8 年前

David S. · 如何在elisp的表达式中传递运算符?

8 年前

jppower175 · eLisp递归函数

8 年前