提交: e828469aa3e33b382bf01535382184a5e18453ab - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: e828469aa3e33b382bf01535382184a5e18453ab (tree)
• 时间: 2019-11-11 18:25:02
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I changed the way a function is called to avoid problems and
warnings. See
https://stackoverflow.com/questions/10400328/wrong-number-of-arguments-called-interactively-p-1
and the solution about adding "any.

更改概述

• modified: emacs_files/screen-lines.el

差异

diff -r c49713cc7d1c -r e828469aa3e3 emacs_files/screen-lines.el
--- a/emacs_files/screen-lines.el	Thu Nov 07 16:21:47 2019 +0100
+++ b/emacs_files/screen-lines.el	Mon Nov 11 10:25:02 2019 +0100
@@ -311,7 +311,7 @@
   (setq screen-lines-mode
         (if (null arg) (not screen-lines-mode)
           (> (prefix-numeric-value arg) 0)))
-  (when (interactive-p)
+  (when (called-interactively-p 'any )
     (message "Screen Lines minor mode %s"
              (if screen-lines-mode "enabled" "disabled"))))
 
@@ -467,7 +467,7 @@
             (newline 1)
           (goto-char pos)
           (screen-lines-move arg)))
-    (if (called-interactively-p 'any )
+    (if (called-interactively-p 'any)
         (condition-case nil
             (screen-lines-move arg)
           ((beginning-of-buffer end-of-buffer) (ding)))
@@ -477,7 +477,7 @@
 (defun Screen-lines-previous-line (arg)
   "Move cursor vertically up ARG screen lines."
   (interactive "p")
-  (if (called-interactively-p  'any)
+  (if (called-interactively-p 'any)
       (condition-case nil
           (screen-lines-move (- arg))
         ((beginning-of-buffer end-of-buffer) (ding)))
@@ -493,7 +493,7 @@
 (defmacro screen-lines-mode-p ()
   "Return non-nil when Screen Lines minor mode should be effective."
   '(and screen-lines-mode
-        (or (called-interactively-p  'any)
+        (or (called-interactively-p 'any)
             (memq this-command screen-lines-mode-commands))))
 
 (defadvice next-line